IDENTIFICATION 

PPODUCT CODE! MAINDEC-08-DHrKA-E-D 

PRODUCT NAMEl RK8E DISKLESS CONTROL TEST 

DATE RELEASEDl JANUARY* 1977 

MAINTAINERj DIAGNOSTIC ENGINEERING 

AUTHORl JOHN VROBEL 

UPDATED BYj DON RICE 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS* 
THAT MAY APPEAR IN THIS DOCUMENT, 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURMSHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE, 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL, 



COPYRIGHT (C) 1972, 1975, 1977 BY DIGITAL EQUIPMENT CORPORATION 



TABLE or CONTENTS 

1, ABSTRACT 

2, REQUIREMENTS 

2.1 HARDWARE 

2.2 SPECIAL 

2.3 STORAGE 

3, PRELIMINARY PROGRAMS 

4, SWITCH REGISTER SETTINGS 

5, OPERATOR AND/OR PROGRAM ACTION 

5.1 STANDARD TEST PROCEDURE 

5.2 DISKLESS CONTROL TEST 

5.3 MANUAL SCOPE TEST FOR 16 BIT COUNTER 

5.4 CHANGE PROGRAM lOT CODES 

6, ERRORS 

6.1 USEFUL ERROR INFORMATION 

6.2 NON-RECOVERABLE ERROR HALTS 

6.3 RECOVERABLE ERROR HALT 

6.4 ERROR TYPEOUTS 

6.5 SCOPE LOOPS 

6.6 TYPICAL ERROR TYPEOUTS 

7, RESTRICTIONS 

8, TROUBLE SHOOTING INFORMATION 

9, PROGRAM DESCRIPTION 

10, CONSOLE PACKAGE ADDENDUM 

11, APT-8 HOOKS 

12, PROGRAM LISTING 



1. ABSTRACT 



THE PK8E DISKLESS CONTROL TEST IS DESIGNED FOR 
THE PURPOSE OF CHECKOUT OF THE RK8E DISK CONTROL 
LOGIC MOT REQUIRING THE USE OF THE DISK DRIVE. 
THIS TEST SHOULD BE RUN WITH ALL FXISTING DRIVES 
SET TO THE LOAD POSITION, 



2, REQUIREMENTS 
2,1 HARDWARE 



PDP-fl/E, 8/M, OR 8/F COMPUTER OR OTHER 
FAMILY OF 8 COMPATIBLF COMPUTER wITH 
NECESSARY DW8E BUS ADAPTER, 

AT LEAST 4K OF READ/WRITE MEMORY, AT LEAST 8K OF MEMQPY IS 
NEEDED FOR OPERATION OF THE CONSOLE PACKAGE, 

ASR-33 TELt.TYPE C-; EQUIVALENT 

RK8E DISK CONTROL 

RK05J OR RK05F DISK DRIVEfS) 



2.2 SPECIAL 



THE DISKLESS TEST CAN BF PUN WITH ALL DRIVES 
AVAILABLE CABLED TO THE RK8E CONTROL, HOWEVER, 
THE POWER MUST BE SUPPLIED TO THE DRIVES, AND 
ALL THE DRIVES MUST BE SET TO THE LOAD POSITION, 

THE DISKLESS TEST CAN ALSO BE RUN WITH THE 
CABLES TO THE DRIVES DISCONNECTED FpOM THE 
RK8E CONTROL, 

2,3 STORAGE 

THE PROGRAM UTILIZES OR OCCUPIES LOCATIONS 049^» TO 
7377 OF FIELD <? AND LOCATIONS 020P TO 1377 OF FIELD 1, 

THE PROGRAM WILL ALSO TEST DATA BREAK TRANSFER TO 
ALL EXISTING EXTENDED FIELDS AS INDICATED BY SWP9-U 
IF THE CONSOLE PACKAGE IS NOT ENABLED, 

3, PRELIMINARY PROGRAMS 



ALL BASIC AND EXTENDED MEMORY DIAGNOSTICS SHOULD 
BE PUN PRIOR TO THIS TEST, 



4. 



SWITCH REGISTER SETTINGS 



SWR0S1 



SWHlsl 



SMR231 



SMR3S1 



SWR4sl 



SWR9-11 



ENTER SCOPE LOOP, AFTER AN EPROP HALT 
AT LOCATION "ERHLTg" RAISING THIS 
SWITCH AND PRESSING KFY CONTINUE 
WILL CAUSE A SCOPE LOOP ON THE 
CURRENT TEST, IF SWR2«p! AND THE 
TEST IS STILL FAILING, THE ERPOP 
BELL SHOULD RING INDICATING M 
ERROR, 

INHIBIT END OF TEST HALT, AT THE COM- 
PLETION OF THE TEST THE PROGRAM 
SHOULD HALT AT LOCATION "ENDHLT", 
RAISING THIS SWITCH WILL INHIBIT 
THE END OF TEST HALT. 

INHIBIT ERROR BELL ON SCOPE LOOP. 

GET ALL REGISTERS AFTER "ERHLT9". 
AFTER AN ERROR HALT AT LOCATION 
''ERHLT9", RAISING THIS SWITCH AND 
PRESSING KEY CONTINUE WILL RESULT 
IN THE TYPEOUT OF THE ABSOLUTE CON. 
TENTS OF THE STATUS, COMMAND, CPC, 
LOWER DATA, AND SURFACE AND SECTOR 
REGISTERS, ONCE THIS SWITCH IS USFD 
IT IS NECESSARY TO RESART THA DIAGNOSTIC 
AT THE START (LOCATION ?I2P'0), 

STOP PROGRAM OR TEST HALT, RAISING THIS 
SWITCH WILL HALT THE PROGRAM AT 
THE COMPLETION OF THE CURRENT TFST, 
IF POSSIBLE THIS SWITCH SHOULD 
ALWAYS BE USED TO STOP THE PROGPAM, 

AMOUNT Ot EXTENDED BANKS OF MEMORY. 
AT INITIAL START OF THE PROGRAM, 
SWR9»U INDICATES THE AMOUNT OF 
EXISTING EXTENDED MEMORY FIELDS 
AVAILABLE TO TEST, 



5, OPERATOR ANO/OR PROGRAM ACTION 



5,1 STANDARD TEST PROCEDURE 



A, START AS SPECIFIED THROUGHOUT THIS DOCUMENTATION IS KEY 
CLEAR AND THEN KEY CONTINUE ON A PDP8/E, PDP8/F, OR 
PDP8/M COMPUTER, 

B, LOAD THE PROGRAM INTO FIELD « USING THE 
STANDARD BINARY LOADER TECHNIQUE, 



C, IF IT IS DESIRED TO CHANGE THE lOT CODES WiTHIH THE 
PBOGPAM, FOLLOW THE PPOCEDURE IN SFCTION 5.4. 

D, RUN THE DISKLESS CONTROL TEST PORTION BY FOLLOWING 
THE PROCEDURE IN SECTION 5,2. 

E, RUN THE MANUAL SCOPE TFST BY FOLLOWING THE PPOCEDURE IN 
SECTION 5,3, 

5.2 DISKLESS CONTROL TEST 

A, SET THE SWITCH LABELED "RUi^/LOAD" TO THE "LOAD" POSITION ON 
ALL DRiVESi OP DISCONNECT DRIVES FpOM RK8E CONTROL. 

B, IF DRIVES ARE CABLED TO THE PKSE CONTROL, VERIFY 
AC POWER IN THE DRIVE(S) IS ON, 

C, SET THE SWITCH REGISTER TO 0200 AND PRESS LOAD ADDRESS, 

D, SET THE SWITCH REGISTER TO 0000, 

E, SET SWR9»11 TO THE AMOUNT OF AVAILABLE EXTENDED R/W 
MEMORY BANKS AND START THE COMPUTER RUNNING, 

F, SET SWRl*l IF THE OPERATOR DESIRES TO INHIBIT THE END 
OF TEST HALT AT LOCATION "ENOHLT". 

G, SWR4»1 SHOULD ALWAYS BF USED TO STOP THE PROGRAM, 

H, THE PROGRAM SHOULD PRINT THE FOLLOWING MESSAGE AT 

THE COMPLETION OF EACH SUCCESSFUL PASS APROX, EVERY 3,5 
MINUTES, 

"RK8E DISKLESS PASS COMPLETE" 

I, ANY HALTS OR TYPEOUTS OTHER THAN THE PASS COMPLETE 
TYPEOUT AND THE END OF TEST HALT MF.NTIONED ABOVE 
WILL BE CONCIDERED AN FRROP CONDITION, IN ALL CASES 
ACCESS "ERRORS" SECTION 6 IN THIS DOCUMENTATION, 

J, FOR ABSOLUTE LOCATIONS OF ALL KNOWN HALTS ACCESS PAGE 1 
OF THE PROGRAM LISTING, 

5.3 MANUAL SCOPE TEST FOR 16 BIT COUNTER 



THIS TEST ENABLES THE OPERATOR TO TEST THE 16 BlT COUNTER 
WHICH CANNOT BE TESTED UNDER PROGRAM CONTROL IN THE REGULAR 
DISKLESS TEST, TO RUN THIS TEST. SIMPLY FOLLOW THE 
FOLLOWING INSTRUCTIONS, 

A, RUN THE DISKLESS CONTROL TEST PORTION PRIOR TO THIS 
MANUAL TEST, 

B, SET THE SWITCH RFGISTER TO 0204 AND PRESS LOAD ADDRESS, 



C, SET THE SWITCH PEGISTEP TO mm AND PRESS STAPT, 

D, SCOPE THE 16TH CAPRY OUTPUT, TEST POINT 1 CTD* ON THE 
M7106 MODULE IN THE RKPE CONTROL LOGIC, FOP A POSITIVE 
GOING SIGNAL, 

E, THE APPOX, SIGNAL SHOULD BE A GPO'IND TO + 3 VOLT PULSE, 

9 MICRO»SECONDS WIDE, OCCURRING AT A \\Vi MICPO-SECOND PATt, 

F, ALL THAT THE PROGRAM DOES IN THIS SCOPF TEST IS TO CON- 
SISTANTLY ISSUE HI KAIN SHIFT PULSES TO THE Ife BIT 
COUNTER ON THE M7J06 MODULE, 

5,4 CHANGE PROGRAM DEVICE lOT CODES 

THE PROGRAM NORMALLY RECOGNIZES PROGRAM DEVICE lOT CODE 
X74X, TO CHANGE THE PPOGRAM DEVICE lOT CODE; 

A, SET THE SWITCH REGISTER TO 0205 AND PRESS LOAD ADDRESS. 

B, SET THE SWITCH REGISTER TO mm, SET SWITCH REGISTER BITS 
3-9 TO THE DESIRED DEVICE lOT CODE, AND PRESS START, 

C, THE PROGPAM WILL CHANGE THE DEVICE lOT CODES WITHIN 
THE PROGRAM AND THEN HALT, 

D, PRESSING KEY CONTINUE WILL RESULT IN A START OF THE 
PROGRAM AT LOCATION 0200 (SEE SECTION 5,2 FOF 
OPERATION INSTRUCTIONS). 

6, ERRORS 

6,1 USEFUL ERROR INFORMATION 



THE LOCATION OF ALL KNOWN HALTS CAN BE FOUND BY 
ACCESSING PAGE 1 OF THE PROGRAM LISTING, 

ALL ERRORS FOUND WHEN RUNNING THIS TEST SHOULD PL 
CORRECTED BEFORE PROCEEDING ON IN THE TEST. 

WHEN AN OPERATOR ENCOUNTEPS AN ERROR WHEN RUNNING THIS 
TEST HE SHOULD, IN ALL CASES, READ THE ERROR TYFEOUT 
INFORMATION, NOTE THE LOCATION OF THE FAILURE, READ 
mth THE INFORMATION UNDER ERRORS IN THIS DOCUMENTATION, 
AND THEN ACCESS THE PROGRAM LISTING FOR FURTHER 
INFORMATION, 



6.2 NON-RECOVEPABLE ERROR HALTS 

NON-RECOVERABLE ERROR HALTS FOR WHICH THLRE APE NO 
TyPEOUTS OR SCOPE LOOPS APE LISTED AND DEFINED AS FOLLOWS: 

ERHLTl UNDEFINED INTERRUPT 

ERHLT2 SKIP TRAP FOR lOT "DCLR" 

ERHLT3 SKIP TRAP FOR lOl "DLAG" 

ERHLT4 SKIP TRAP FOR lOT "DLCA" 

ERHLT5 SKIP TRAP FOR lOT "DRsT" 

ERHLT6 SKIP TRAP FOR lOT "DLDC 

ERHLT7 SKIP TRAP FOR lOT "DM»N" 

6.3 RECOVERABLE ERROR HALT 



ALL RECOVERABLE ERRORS, FOR WHICH THERE ARE SCOPE LOOPS 
AND ERROR TYPEOUTS, SHOULP RESULT IN AN ERROR HALT AT 
"ERHLT9". 

ERriLT9 RECOVERABLE ERROR HALT. READ INFORMATION 

TYPEOIIT ON TTY AND ACCESS LISTNG. 



6,4 ERROR TYPEOUTS 



WHEN A RECOVERABLE ERROR OCCUPS THE PROGRAM WILL 
PRINT AN "ERROR HEADER" WHICH WILL SPECIFY THE 
PARTICULAR PEGISTER IN ERROR OR TYPE OF ERROR FOUND 
AT THE TIME OF THE FAILURE, 

POSSIBLE "ERROR HEADERS" ARE As FOLLOWS. 

AC REGISTER ERROR 
STATUS REGISTER ERROR 
COf<M&WD REGISTER ERROR 
DISK ADDRESS REGISTER ERROR 
DATA BREAK ERROR 
CRC REGISTER ERROR 
DATA REGISTER ERROR 
DISK SKIP ERROR 
DISK INTERRUPT ERPOR 



AFTER THE "ERROR HEADER" MENTIONED ABOVE IS TYPED, THE 
PROGRAM WILL PRINT THE FOLLOWING ERROR INFORMATION 
FOUND AT THE TIME OF THE FAILURE, PERTAINING TO THE 
FAILURE, POSSIBLE TYPEOUTS ARE AS FOLLOWS. 

PCl PROGRAM LOCATION OF THE ACTUAL FAILURE, 

GDj REFERS TO THE DATA EXPECTED IN THE REGISTER 

OR TYPE OF TEST SPECIFIED IN THE "ERROR HEADER", 

CPl CONTENTS OF THE CRC REGISTER, 

5T| CONTENTS OF THE STATUS REGISTER, 

DBl CONTENTS OF THE LOWER DATA REGISTER, 

CM: CONTENTS OF THE COMMAND REGISTER, 

DAj CONTENTS OF THE DIS'< ADDRESS REGISTER OF 
THE CYLINDER, SURFACE, AND SECTOR BITS, 

AD| BREAK ADDRESS OF DATA BREAK, 

DT; DATA FOUND DUPING DAT* BREAK, 

ACl CONTENTS OF THE AC REGISTER, 

THE "GDI" INFORMATION TYPED OUT POINTS TO THE DATA 
EXPECTED IN THE REGISTER IN ERROR OR TYPE OF ERROR TYPED 
OUT IN THE "ERROR HEADER", 

THE ERROR INFORMATION INDICATOR SUGGESTED BY THE "ERROR 
HEADER" (I,E, DA: FOR DIS^ ADDRESS ERROR, CM: FOR COMMAND 
REGISTER ERROR, CP: FOR CRC REGISTER FRPOP, ETC.), IS THE 
ACTUAL CONTENTS OF THAT PARTICULAR REGISTER, ERROR INFORMA- 
TION OTHER THAN THAT SUGGESTED BY THE "ERROR HEADER" TS THE 
SOFTWARE INFORMATION LOADED INTO THAT REGISTER PRIOR TO 
THE FAILURE, (NOTE: "ST:" STATUS ALWAYS INDICATES THE ACTUAL 
CONTENTS.) 

TO TYPEOUT THE ACTUAL CONTENTS OF THE CRC, STATUS, 
LOWER DATA, COMMAND, AND SURFACE AND SECTOR REGISTERS, 
AFTER AN ERROR HALT AT LOCATION "if.RHLT9", SET SWR3sl 
AND PRESS KEY CONTINUE, 



6,5 SCOPE LOOPS 



THERE ARE SCOPE LOOPS AVAILABLE FOP ALL ERRORS 
RESULTING IM AN ERROR HALT AT "ERHLT?", 

TO ENTER SCOPE LOOP, INHIBIT ERROR TYPEOUT, AND INHIBIT 
ERROR HALT, AFTER AN ERROR HALT AT "EpHLTg", SET SWR0=1 
AND PRESS KFY CONTINUE, 

IF THE SCOPE LOOP IS WORKING CORRECTLY BND IF THE TEST 
IS STILL FAILING THF TTY RELL SHOULD PiNG. SET SWP2=1 
10 INHIBIT THE TTY BELL, 

6,6 TYPICAL ERROH TYPtOUTS 



THE FOLLOWING IS A TYPICAL EXAMPLE OF AN "ERHOp HEADER" 
AND TYPEOUT THAT COULD HAVE OCCURRED IF A DTS^ lOT 
FAILED TO CLEAR THE AC REGISTER, 

AC REGISTER ERROR 
PCJ1541 GDji«0i?0 AC;0100 

THE FOLLOWING IS AN EXAMPLE OF AN "ERROR HEADER" AND 
TYPEOUT THAT COULD HAVE OCCURRED WHEN READING THF 
COMMAND REGISTER, 

COMMAND REGISTER ERROR 
PCtlltiA GD:(>22i CM;0200 

THE FOLLOWING IS AN EXAMPLE OF AN "ERROR HEADER" AND 
TYPEOUT THAT COULD HAVE OCCURRED IF THE DISK 
SKIP lOT FAILFD TO SKIP, 

DISK SKIP ERROR 
PCJ3332 

THE FOLLOWING IS AN EXAMPLE OF AN "ERROR HEADER" AND 
TYPEOUT THAT COULD HAVE OCCURRED ON A WRITE DATA BREAK, 

DATA BREAK ERROR 

PCJ4453 GDI5252 C^M^P^l;) ADS7777 DT;'525« 

RESTRICTIONS 



THE PROGRAM IS ONLY OPERATIONAL IN FIELD C?, 

IF THE DRIVES ARE CABLED TO THE RK8E CONTROL LOGIC, 
THE AC POWER TO THE DRIVES MUST BE ON AND THE DRIVFS 
MUST BE SFT TO THE LOAD POSITION, 



8, TROUBLE SHOOTING INFORMATION 

lOT FUNCTION 



6741 DSKP "SKIP" SKIP u TPANSFFR DONE FLAG 

OP ERROR FLAG IS SET. 

6742 DCLP "CLEAR" FUNCTION IS REGULATED BY 

AC BITS la AND 11, THE AC IS THEN 
CLEARED, 

AC10 ACn 



<5 CLEAR THE AC AND STATUS REGISTER, 

^ ' CLEAR THE AC» CONTROLf AND MAJOR 

REGISTERS, THIS INSTRUCTION WILL 
STOP THE CONTROL EVEN IF IT IS 
WRITING A HEADEP, THIS Is THE ONLY 
INSTRUCTION THAT WILL CLfcAP 
MAINTENANCE MODE, 

' CLEAR AC, RECALIBRATE DISK DRIVE, 

AND CLEAR STATUS REGISTER, 

674? DLAG "LOAD DISK ADDRESS AND GO" LOAD THE 

DISK CYLINDER, SURFACE, AND SECTOR 
FROM THK AC, CLEAR THE AC, AND 00 
THE COMMAND IN THE COMMAND PEGISTER, 

AC 



e-6 CYLINDER 

^ SURFACE (is UPPEP) (0s LOWER) 

8-11 SECTOR 

6744 OLCA "LOAD CURRENT ADDRESS" LOAD THE 

CURRENT ADDRESS FPQM AC, THE AC 
IS THEN CLEARED, 

AC 

•'•n C'IRRENT ADDRESS 

6745 DRST "READ STATUS" CLEAR THE AC AND 

READ THE CONTFNTS OF TRF STATUS 
REGISTER INTO THE AC. 



AC 
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6746 DLDC 



AC 



TRANSFER DONE 

PPADY TO SEE:K, read. Ok WRITE, 

NOT USED 

SEE^ FAIL 

DlSt^ FILE READY 

CONTHOL BUSY EHPOP 

TIME OUT FPROp 

WPITF LOCK ERROR 

CPC ERROR 

DATA PATE ERROR 

DRIVE STATUS EPROP 

CYLINDER ADDPFSS FRROF 

"LOAD COMMAND" I^OAD THf, COMMAND 
REGISTER FROM AC, CLEAR THE AC, 
AND CLEAR THE STATUS REGISTER. 



8l-2sf» 

0-2 = 1 

P-2s2 

»-2b3 

e-2*4 

e-2s5 

0-2*6 

^-2a7 

3 

4 

5 

6 

7 

8 

9 

10 

11 

6747 OMAN 



SFEK DONE 



READ DATA 

READ ALL 

WRITE LOCK 

SEEK ONLY 

WRITE DATA 

WRITE ALL 

NOT USED 

NOT USED 

ENABLE INTERRUPT 

ENABLE SET TRANSFER DONE ON 

HALF BLOCK 128 WORDS 

EXTENDED MFMOpY ADDRESS 

EXTENDED MEMORY ADDRESS 

EXTENDED MEMQPY ADDRESS 

UNIT SELECT 

UNIT SELECT 

EXTENDED CYLINDER ADDRESS 



"MAINTENANCE lOT" LOAD THE 
MAINTENANCE PFGTSTFR FpOM THE AC, THE 
FnNCTlON IS RFGULATED BY THE AC BITS, 
MAINTENANCE moDE CAN ONLY BE CLEARED 
BY nCLR "CLEAR CONTROL", 



AC 

f* FNTER KiAINTENANCE MODK 

< ewablf: shift to lower buffer 

2 AC BIT \v>, CRC REGISTER, AND THE 

LOWER DATA BUFFER ARE CONNECTED AS 
A SHIFT REGISTER. AC BIT 10 DATA 
SHIFTS TO THE CRC, THE CRC SHIFT5 
TO THE LOWER DATA BUFFER. 

^ SHIFT COMMAND REGISTER TO THE LOWER 

DATA BUFFfcP, 

4 SHIFT THE SURFACE AND SECTOR REGISTER 

TO THE LOWER DATA BUFFER, 

5 SHIFT AC 10 DATA TO THE UPPER 

DATA BUFFER, THE UPPER BUFFER 
SHOULD SINK IN THE SILO WHEN 
FULL, 

6 ONE SINGLE CYCLE BREAK REQUEST. 

DIRECTION IS REGULATED BY FUNCTION 
I«I THE COMMAND REGISTER, 

' CLEAR AC THEN READ THE LOWER 

DATA BUFFER TO THE AC, 

8 NOT USED, 

9 NOT USED, 

^^ USED AS DATA WITH OTHER BITS IN 

THE MAINTENANCE MODE, 
'1 NOT USED, 

9, PROGRAM DESCRIPTION 

ISrrel^r^ niSKLESS CONTROL TEsT IS BASICALLY A STATIC 
«^«.,!!^''.*''^ ^^"^ "^^^^ °'^ "^"^ ^^^^ DISK CONTROL LOGIC NOT 
PEOUIRING THE USE OF THE DISK DRIVE. SINGLE CYCLE BREAKS 
ARE ALSO EXECUTED TO AND FROM THE CONTROL LOGIC, 

THE PROGRAM IS DIVIDED INTO MANY SEPARATE INDIVIDUAL 
SUBTESTS, WHICH WILL TEST DIFFERENT PARTS OF THE CONTROL 
LOGIC, THE SUBTESTS APE ARRANGED IN SUCH A MANNER TO TEST 
THE EASIEST FUNCTIONS FIRST, PRECEEDInG EACH SUBTEST, IN 
THE LISTING, IS A SHORT EXPLANATION OF THE TEST AND LOGIC 
TESTED , 



A BRIEF EXPLANATION OF SUBTESTS AND PpOGPAM FLOW IS 
AS FOLLOWS! 

A, SETUP 



SETUP POINTERS AND RETURNS FOP CURRENT FIELD. AMOUNT 
OF EXTENDED FIELDS, AND INTERRUPT SERVICE, 

B, T5T0-TST3 



VERIFY REGISTERS AND CONTROL FLIP-FLOPS WERE CLEARED 
BY "CLR RLL" AT START OF TEST, (NOTEt "CLR ALL" GFNEPATED 
BY KEY START ON MOST PDP-8'S OP KEYS CLEAR AND THEN 
CONTINUE ON A PDP-8/E, S/F OH 8/M,) 

C, TSTt 



VERIFY ALL DRIVES ARE SET TO "LOAD" OR WERE 
DISCONNECTED FROM CONTROL AT STAPT OF TEST, 

D. TST5 



VERIFY "DSKP" DISK SKIP lOT DOESN'T AFFECT AC REGJSTFR, 
E, TST6-TST9 



VERIFY THAT lOTS "DLCA LOAD CURRENT ADDRESS", "DLDC LOAD 
COMMAND", "DLAG LOAD DISK ADDRESS", AND "DCL^ CLEAR CONTROL 
FUNCTION" DO CLEAR THE AC REGISTER AFTER THfe,Ip EXECUTION. 

F, TST10-TST14 



VERIFY LOADING, CLEARING, AND READING THE COMMAND REC^ISTFR 
USING VARIOUS DATA PATTERNS 

G, TST15-TST28 



VERIFY LOADING, CLEARING, AND READING THE DISK ADDRESS 
REGISTER USING VARIOUS DATA PATTERNS, 

H, TST29-TST3ia 



VEPIFY LOADING, CLEARING, AND READING THE COMMAND REGISTER 
USING VARIOUS DATA PATTERNS 



I. T5T31 



VERIFY LOADING, CLEARING, AND PEADTNf: THE DISK ADDRESS 
REGISTER, 

J, TST32-TST33 



VERIFY "OMAN MAINTENANCE lOT" DOES NOT EFFECT AC REGISTER. 
K, TST34-TST35 

VERIFY MAINTENANCE MODE CAN BE SET AND CLEARED CORRECTLY. 
L, TST36-TST40 



VERIFY LOADING, READING, AND CLEARING THE CPC REGISTER 
USING VARIOUS DATA PATTERNS, 

M, TST41»TST4B 



VERIFY LOADING, READING. AND CLEARING THE BUFFER RFGiSTEPS 
USING VARIOUS DATA PATTERNS 

N, TST49-TST76 



VERIFY SETTING AND CLEARING VARIOUS STATUS REGISTER 
BITS, ERROR FLAGS, SKIP FUNCTIONS, AND INTERRUPT 
FUNCTIONS, 

0, TST77-TST100 



VERIFY READ AND WRITE MAINTENANCE DATA BREAKS TO AND 

FROM CONTROL USING VARIOUS DATA PATTERNS IN CURRENT FIFlD. 

P, TST101-TST105 



VERIFY READ AND WRITE MAINTENANCE DATA BREAKS TO AND 
FROM CONTROL USING VARIOUS DATA PATTERNS IN ALL EXISTING 
EXTENDED R/W MEMORY FIELDS, 

0, TYPE PASS COMPLETE AND LOOP TO TST4, 



10, CONSOLE PAC»(AGE ADDENDUM 
10,1, DESCPIPTION 



THE CONSOLE PACKAGE HAS BEEN ADDED TO THIS DIAGNOSTIC TO ALLO'* 

THE PROGRAM TO RUN WITH NO HARDWARE SWITCH REGISTER AND TO 

HAVE COMMUNICATIONS WITH THE DIAGNOSTIC VIA A TERMINAL, THE 

DIAGNOSTIC CAN BE RUN IN TWO MQDES WITH THE CONSOLE 

PACKAGE , 1) RUNNING WITH THE CONSOLE PACKAGE ACTIVE - 

THIS ALLOWS THE OPERATOR CONTROL OF THE DIAGNOSTIC THROUGH 

THE TERMINAL. THE DIAGNOSTIC WILL AsK FOR THE VALUF OF THE PSEUDP 

SWITCH REGISTER, BEFORE CONTINUING WITH EXECUTION OF THE 

DIAGNOSTIC, ALL ERRORS AND PASS COMPLETES WILL BE PRINTED AT 

THE TERMINAL. NO HALTS WILL BE EXECUTED. 

2) CONSOLE PACKAGE NOT ACTIVE-THIs WILL RFSOLT IN THE 

NORMAL STANDALONE OPERATION OF THE PROGRAM AS DISCPIBED IN 

SECTIONS 1 THROUGH P OF THIS DOCUMENT 



10,2 RESTRICTIONS 



1) RUNNING THE CONSOLE PACKAGE REQUIRES THAT THE 
PSEUDO SWITCH REGISTER BE USED, 

2) ONCE RUNNING THE CONSOLE PACKAGE NONACTIVE AND 

NOW DESIRE TO RUN IT ACTIVE, ONE MUST RELOAD THE DIAGNOSTIC 
AND INITILIZE FOR A ACTIVE CONSOLE PACKAGE, 



10,3 INITIALIZATION 



FOR A ACTIVE CONSOLE PACKAGE 



1,) SET LOCATION 21 bTT'l*^ TO INDTCaTE USE PSEUDO SWITCH 
REGISTER, 

2,) SET LOCATION 22 BITJsl TQ INDICATE CONSOLE PACKAGE ACTIVE. 
FOR A NON ACTIVE CONSOLE PACKAGE 

»,) SET LOCATION 21 BIT0=1 TO INDICATE NOT TO USE PSEUDO 
SWITCH REGISTER, BUT TO USE HARDWARE SWITCHES. 

2,) SET LOCATION 22 bITlsK TO INDICATE CONSOLE PACKAGF MOT 
ACTIVE. 



1«»,4 



CONTROL CHARACTERS 



CONTROL CHARACTERS ARL USPD TO GIVE THE OPERATOR THE 
ABILITY TO PERFORM THE FOLLOWING FUNCTIONS, 
NOTE: THE PROGRAM WILL RESPOND TO THE CONTROL 
CHARACTER IN FIVE (5) SECONDS OR LESS 



CONTROL C 



CONTROL R 



CONTROL E 



CONTROL L 



CONTROL D 



CONTROL S 



CONTROL 



THIS WILL START THE LOADER THAT IS 
IN LOCATION 760f, 



THIS WILL RESTART THE PROGRAM AND 
REA5K THE SWITCH REGISTER QUESTION AS 
DESCRIBED IN SETION 1(9,2. 



THIS WILL CONTINUE THE PROGRAM FROM 
AN ERROR IF ALLOWED BY THE DIAGNOSTIC 
OR FROM A WAITING STATEMENT, 



THIS WILL SWITCH THE TERMINAL MESSAGfcS 

FROM THE DISPLAY TO A LINE PRINTER, 

TO RESTORE THE MESSAGES ON THE TERMINAL 

CONTROL L MUST BE TYPED AGAIN, IF 

NO PRINTER IS AVAIBLE AND CONTROL L 

IS TYPED THE RESULT WILL BE THAT THE 

CONSOLE PACKAGE WILL WATT FOR CONTROL C OP p, 

THE CONTROL L WILL OUTPI'T TO THE LINE 

PRINTER AND THE PROGRAM WILL 

ATTEMPT TO CONTINUE AS IF A CONTROL E 

WAS TYPED IN, 



THIS WILL ALLOW THE ABILITY TO CHANGE 
THE SWITCH REGISTER DURING PROGRAM 
OPERATION, TYPING THIs CHARACTER WILL REStlM 
IN AN INTFRIGATIOK OF THE SWITCH REGISTER 
QUESTION AS DESCRIBED IN SECTION 10,6. 



THIS WILL STOP PROGRAM EXECTUION AND WATT T f J A 
LOOP FOR A CONTINUE, THE ONLY WAY TO CONTINUE 
WILL PE TO TYPE A CONTROL U, R OR C 
THIS IS A NONPRINTING CHARACTER, 



THIS IS TO CONTINUE A PROGRAM AFTER A CONTROL 
S IS TYPEn,THlS IS A NONPRINTING CHARACTER 



10,5 WAITING MESSAGE 



THE WAITING MESSAGE IS USfTD TO ALLOW THE OPERRTOP TIME 

TO MAKE A DECISTQN AS TO WHAT CONTROL CHARACTER 

TO TYPE, THIS MESSAGE MAY APPEAR AT THE END 

OF PASS MESSAGE IF THE HALT ON PASS BIT IS SET, THE CONTROL 

CHARACTERS Mfty NOW BE USED TO PERFORM THE NEEDED FUNCTION, 

THE WAITING MESSAGE MAY BF PRINTED AFTER A ERROR MESSAGE 
IF THE HALT ON ERROR BIT IS SET, HERE AGAIN THE CONTROL 
CHARACTERS MaK BE USED, 

THE WAITING MESSAGE MAY BE PRINTED IF OPERATOR INTERVENTION 
IS REQUIRED, 

10,6 SWITCH REGISTER MESSAGE 



THIS MESSAGE IS USED TO SETUP THE PSEUDO SWITCH REGISTER 
BEFORE PROGRAM EXECUTION TAKES PLACE, THE SWITCH REGISTER 
IS SETUP WHEN THE FOURTH CHARACTER IS ENTERED OR A CARRIAGE 
RETURN IS TYPED 

SRsti000 4000 



UNDER SCOPING INDICATES OPERATOR RESPONCE 
10,7 END OF PASS 



AN INDICATION WILL BE GIVEN WHEN THE DIAGNOSTIC HAS MlVDl^ A 

SUCESSFIILL PASS. THE PRINT OUT wILL INDICATE THE DIAGNOSTIC 

MAINDEC NUMBER THE WORD PASS AND A FOnR DIGIT PASS NUMBER, 

A PASS WILL BE A TIME PERIOD RATHER THAN A PROGRAM PASS 

OF THE DIAGNOSTIC, THE TIME PERIOD WILL BE IN THE RANGE OF 

ONE (1) TO FIVE C5) MINUTES, IF THE DIAGNOSTIC MAKES A PROGRAM 

PASS IN THE 1 TO 5 MINUTE RANGE THEN THE PASS COUNT WILt BE THE 

SAME AS THE NUMBER OF PROGRAM PASSES, IF THE PROGRAM MAKES A 

PROGRAM PASS IN LESS THEN ONE MINUTE THEN THE PASS COUNT WILL 

NOT BE THE SAME AS THE PASS COUNTER THE PASS COUNTER WILL 

REFLECT MORE THEN ON PROGRAM PASS, 

THE NUMBER OF PROGRAM PASSES REQUIRED FOR 'A PASS MESSAGE 

CAN BE FOUND IN LOCATION ^2*6, 



IF HALT AT END OF PASS IS SET THEN THE PASS MESSAGE WILi- BE 
PRINTED AND A WAITING STATEMENT WILL ALSO BE PRINTED, 
A CONTROL CHARACTER IS NEEDED TO CONTTNITE FROM THIS MESSAGE, 
THE FORMAT OF THE END OF PASS MESSAGE IS 

NAME PASS 9001 



10.6 ERRORS 



THE STANDARD ERROR REPORTS As DESCRIBFD IN SECTION 6 
OF THIS DOCUMENT WILL BE USED. 

10.9 SWITCH REGISTER SETTINGS 



THE STANDARD SWITCH SETTINGS AS DESCRIBED IN SECTION 4 
OF THIS DOCUMENT WILL BE USED, 

10,10 PARAMETER CONTROL WORDS 



THE CONSOLE PACKAGE USES THE LOCATIONS 20 21 22 FOP THE 
FOLLOWING PURPOSES. 

LOCATION 20 

PSEUDO SWITCH REGISTER 

LOCATION 21 

HARDWARE IDENTIFIER 1 

LOCATION 22 

HARDWARE IDFNTIFIEP 2 



LOCftTION »ii»2l 

BIT OCTAL VALUE FUNCTION WHEN FUNCTION WHEN 1 



pt 


4300 


USE PSEUDO SWITCHES 


1 


2H00 


NO OPTION 1 


2 


1^00 


NO OPTION 2 


3 


400 


NO 8A SIMULATOR 


4 


2*»d 


NO OPTION SIMULATOR 


5 


1«)9 


NOT ON 8A XOR 


6 


43 


NOT PDP8-E TYPE CPU 



USE HAPUWAPE SWITCHES 
HAS OPTION 1 
HAS OPTION 2 
HAS 86 SIMULATOR 
HAS OPTION SIf'ULATOR 
ON 8A XOR 
pnpP-F TYPE CPU 



7-11 8A MtMORY SIZE EX, IKsP^f^ 

7Ksi()6 
32K=31 

LOCATION 0322 

BIT OCTAL VALUE FUNCTION WHEN fc) FUNCTION WHEN ] 



» 4300 NOT ON ACT8A LINE ON ACT BA LINE 

1 2000 NOT ON ACT RE LINE ON ACT SK LINE 

2 1000 NOT YET DEFINED 

3 430 DEACTIVE CONSOLE ACTIVE CONSOLE 

PACKAGE PACKAGE 



l«,tl LOCATION CHANGES 



THE FOLLOWING FIELD I LOCATIONS CAN pE CHANGED TO MEET THE 
SPECIFIC NEED FOR MODIFICATION OF THE DIAGNOSTIC. 

P246 IS THE LOCATION FOR THE VALUE OF THE 

NUMBER OF PROGRAM PASSES NEED TO 
PRINT THE END OF PASS MESSAGE, 

'037 IS THE LOCATION SET FOR THE NUMBER OF 

FILLER CHARACTERS AFTER A CPLF" SET TO FOUR (4) 



11, APT-fi HOOKS 
11,1 DESCRIPTION, 



TWO INTERFACES HAVE BEEN PROVIDED WHICH ALLOW THIS DIAGNOSTIC 

TO PUN UNDER THE STANDARD APT-8 SYSTEM, THESE CONSIDERATIONS ARE: 

1 , ERROR INTERFACE 

2, TIMING INTERFACE 

EACH WILL BE EXPLAINED IN MORE DETAIL, 
11,2 SET-UP 



ONLY HARDWARE CONFIGURATION i«0rD 2 NEED BE ESTABLISHED 

AT PROGRAM START UP, PIT ZERO (0) MUST BE SET TO A ONF fl) 

TO INDICATE THAT THE PROGRAM IS TO RUN UNDER APT-8, 

11,3 APT-8 INTERFACES 
n,?,l, TIMING 



APT-8 Is NOTIFIIED OF PROGRAM RUN WITHIN A ,2 SEC TO 
2,0 SEC WINDOW WHEN USED WITH A 1,2 MICROSECOND MEMORY CyCL?: 
TIME, THIS WINDOiM WAS ESTABLISHED SO THAT IF RUN ON THE SLOWER 
MOS MEMORY THE DIAGNOSTIC i^OULD NOT CAUSE A TIMEOUT ERROR QH 
THE APT-8 SYSTEM, 



11,3,2 ERRORS 



WHEN ON APT-8 ALL ERRORS ARE CONSIDERED FATAL, WHEN 
REPORTING AN ERROR ONLY THE ERROR PC TS REPORTED TO APT ERRORS 
WHICH CAUSE A SYSTEM HALT ARE NOT REPORTED, THESE ERRORS ARE 
INDICATED 8Y A TIMEOUT ERROR ON APT, tHF ACTUAL ERROR CAN bF 
DETERMINED BY EXAMINING THE AC AT THE TIME OF THf HALT 



PROGRAMED HALTS ARE EXPLAINED EARLIER IS THIS 
DOCUMENT, 

12, PROGRAM LISTING 



9 

le 
II 
i: 
11 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2« 
29 
38 
31 
32 
33 
34 
35 
)6 
37 
36 
39 
40 
41 
42 
43 
44 
45 
46 
47 
41 
4« 
50 
51 
52 
53 
54 
55 



/PKSE DISKLESS CONTBOL TEST 

/ 

/M»INrEC-0e-DHPKA-E-I, 

/ 

/COPIPIGHT (C) 1972, 1975 DIGITAL EQUIP. COPP. 

/ 

/MAYNARD, MASS, 01754. 

/ 

riELD 1 
/ 

/CONSOL SPC -V2-P0- CONSOLE PACKAGE 



/LAS' CALL C8CKSN OP JHS XCSSH 

/THIS WILL PEAD THE SWITCH REGISTER FROM THE PLACE SPECIflED 

/BY LOCATION 20 BIT 0. 

/THE PROGPAN SHOULD CHECK FOP A CONTROL CHARACTER FROM THE TERMINAL 
/EVERY FIVEtS) SECONDS OR SOONER, 

/LOCATIONS THAI NEED TO BE SET UP FOP USING THE CONSOLE PACKAGE, 

/CNIVAL IN XCBPA5S THIS LOCATION DETEPMiNDS THE NUMBER OF 
/PROGRAM COMPLETIONS THAT ARE NEEDED BFFOPE THE PASS MESSAGE IS TYPED 
/THE VALUE SHOULD PUT THE PASS MESSAGE OUT IN THE RANGE OF 1 TO 5 MINUTES, 
/THIS SHOULD BE A POSITIVE NUNBER. 

/C8STPI THIS IS FOUND IN CNTRl ROUTINE CONTROL P PART 

/IT IS THE RETURN WHEN CONTROL P IS ENTERED (RESTART PROGRAM) 

/THE RETURN JUMPS TO XDOSW WHICH CONTAINS CBSTRT SO PUT THE LABEL C8STRT 

/WHERE YOU WANT TO RESTART THE PROGRAM, 

/SETUPl IN XC8ERR THIS IS THE MASK BIT FOR HALT ON ERROR 
/PLACE THE CORRECT BIT IN THIS LOCATION FOR HALTING ON EPROPS, 

/SEIUP2 IN XC8PASS THIS IS THE MASK FOR HALT A END OF PASS. 

/THE CALL TABLE IS A CONDITIONAL ASSEMBLY. 

/TO ASSEMBLE THE CALL REMOVE THE / BEFORE CONSOL»0. 

/IN COMBINING THE CONSOL PACKAGE TO A DIAGNOSTIC. 

/THE CALL TABLE IS TO BE AT THE BEGINNING OF A PROGRAM. 



0000 


CONSOL"? 




6661 


PSKF. 


6661 


6662 


PCLF. 


6662 


6663 


PSKEs 


6663 


6664 


PSTB. 


6664 


6665 


PSIE. 


6665 


6««4 


GTF« 


6004 


7701 


ACL« 


7701 



56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
10} 
104 
105 
t«6 
107 
108 
109 
110 
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6007 
7 521 
7501 

0020 

0020 0000 

0021 0000 

0022 0000 



0024 



CAF« 
MQL> 
MOAS 



6007 
742! 

7501 



0024 
0025 
0026 
0027 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0040 
0041 



4424 
0200 
4425 
0262 
4426 
0272 
4427 
8400 
4430 
0303 
4431 
0656 
4432 
1000 
4433 
1023 
4434 
1H6 3 
44J5 
1077 
4436 
1207 
4437 
0635 
4440 
1041 
4141 
0137 



• 20 



FISWP, 

F10P1, 

F10P2, 

/ 

/ 

IFDEF CONSOL < 



C8PASSS 


JMS I 




xcePAS 


C8CKSW. 


JMS I 




XC8SW 


CBTTYI" 


JMS I 




XC8TTY 


C8CNTR» 


J"S I 




XC8CNT 


C8PRNTS 


JMS I 




XC8PNT 


C«SWII« 


JMS I 




XC8PSW 


C80CTA" 


JMS I 




XC80CT 


CSCBLF« 


JMS I 




XCBCRL 


C8ECH0. 


JMS I 




XC8ECH 


CBTYPEs 


JMS I 




XC8TYP 


C8EPRI 


J"S I 




XC8ERR 


C8INQUS 


JMS I 




XCBINO 


C8CKPAJ 


JMS I 




XC8CKP 


cepAus= 


JMS I 




XC9PAU 



/PSEUDO SWITCH REGISTER 
/CONTROL 1 
/CONTROL 2 



/C8 PASS COMPLETION ROUTINE 

/CHECK SW REG SETTING 

/FETCH CONSOL CHAR 

/CHECK FOP CONTROL CHAR 

/C8 PPINI A BUFFER 

/SET UP PSEUDO SW. REG 

/CONVERT TO ASCII AND PRINT 

/DO A CAPRIGE PFTIlp ♦ LINE FEED 

/CHECK INPUT CHAR 

/C8 PRINT ONE CHAP 

/Cfl ERROR HANDI.FR 

/LOOK FOR OPERATOR INTERVFNTION 

/CHECK IF CONTROL CHAP 

/IF CONSOL PACKAGE RETURN CALL PLUS ONE 
/IF NOT USING CONSOL REPLACE CALL WITH 
/A HLT »Nn THEN GO TO THE HALT 



/•20 /PSEUDO S"ITCH REGISTER 

/•Jl /HARDWARE INDICATORS 

/40P0=USE FRONT PANFL SWITCH REGISTER 
/O0»(» = USE THE PSEUDO SWITCH REGISTER LOC.20 

/•27 /SYSTtM CONFIGURATION 
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Itt 
112 
113 
114 
115 
lU 
117 

lie 
ii» 

130 
131 
123 
13) 
134 
135 
136 
137 
138 
I3« 
1)0 
1)1 
133 
13) 
134 
135 
136 
1)7 
i)8 
139 

ue 

141 
142 
143 
144 
145 
146 
147 
148 
14* 
150 
151 
153 
153 
154 
155 
156 
157 

ise 

159 
16* 
161 
162 
163 
164 
165 



/400«CONSOL PACKAGE SET ACTIVE 
/0000«CONSOLE PACKAGE SFT DEACTIVE 



/RESERVED FOR FUTURE USE 



0300 
0301 
0202 
0203 
0204 
0305 
0306 
0307 
0310 
0311 
0313 
031) 
0314 
0315 
0316 
0317 
0330 
0331 
0333 
0333 
0324 
0225 
0236 
0337 
0330 
03)1 
02)2 
02)3 
0334 



0300 



0000 

7200 

4777' 

5213 

4776* 

4363 

0)75 

7640 

5600 

53)0 

43)3 

53)0 

2350 

4774- 

4)0) 

0253 

1750 

4773' 

4774' 

4776' 

4363 

0375 

7640 

4773' 

3300 

5600 

0000 

1351 

7640 



*300 



/C8PASS 

/THIS IS CALLED AT THE END OF EACH PROGRAM COMPLETION 

/THE VALUE Or»» CNIVAL*' WILL BE DETERMINED BY THE TIME IT TAKES 

/THE PROGRAM TO COMPLETE THIS MANY C»0A5s TO BE IN THE 1 TO 4 MINUTE 

/RANGE 

/ C9PASS.JMS XCBPAS 

/EX, OF CALL C8PASS 

/ HLT /HALT IF NON CONSOL PACKAGE 

/ JMP STARIl /CONTINUE RUNNING THIS PROGRAM 

/RETURN TO LOCATION CALL PLUS ONE UITH THE AC«e IF NON CONSOL PACKAGE AND HLT 

/IF CONTINUE TO BUN THEN RETURN TO CALL PLUS2 AC»a 

/THE LOCATION SETUPS IS THE MASK BIT FOR THE HALT AT END OF PASS 

/CHECK THAI IT IS CORRECT FOR THE CURRENT PROGRAM 

/CALLS USED B» XCBPAS ARE CHKCLA-XCSCBLF-XCaOCTA-XCBSW-XCBPNT-XCBINa- 



xcePAs> 

CLA 

JMS 

JMP 

JMS 

JMS 

AND 

SZA CLA 

JMP I 

JMP 
DOPACK, JMS 

JMP 

ISZ 

JMS 

JMS 

HE8PAS 

IAD 

JM5 

JMS 

JMS 

JMS 
SETUP2> AND 

SZA CLA 

JMS 

ISZ 

JMP I 



CSBYl, 



CKCOUT, 



TAD 
SZA CLA 



CHKCIA 

DOPACK 

C8GET 

XCBSH 

(400 

XC8PAS 

CBBYl 

CKCOUT 

CBBYl 

PASCNT 

XCBCRLF 

XC8PNT 

PASCNT 

XCBOCTA 

XCBCRLF 

C8GET 

XCBSN 

(400 

XCBINO 
XCBPAS 
XCBPAS 

DOSET 



/IS WORD 32 BIT ) ACTIVE CONSOLE? 

/IS CLASSIC 

/GET ALL REGISTERS, 

/DEACTIVE CONSOL CHECK SR SETTING 

/FOR HALT ON END OF CBPASS 

/!■ HALT CONTINUE 

/GO TO HALT 

/CONTINUE ON RUNNING PROGRAM 

/CLASS CHECK CBPASS COUNT 

/CBPASS COUNT NOT DONE REDO PROGRAM 

/CBPASS COUNT DONE SET CBPASS COUNT 

/CBPRNT BUFFER 

/ 

/GET NUMBER 

/CONVERT II TO ASCII 

/DO A CARRIAGE RETURN 

/GET ALL REGISTERS, 

/CHECK A HALT AT END OF CBPASS 

/MASK BIT 

/HALT «1 NO SKIP CONTINUE s0 

/STOP PROGRAM EXECUTION-LOOK FOR INPUT 

/BUMP RETURN 



/CHECK IF SET UP NEEDED 
/0»SET UP CBPASS COUNT VALUE 
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166 
167 
168 
169 
170 
171 
173 
173 
174 
175 
176 
177 
178 
179 
180 
181 



183 
183 
184 
IBS 
186 
187 
188 
189 
190 
191 
192 
19) 
194 
195 
196 
197 
19e 
199 
300 
201 
202 
203 
204 
205 
306 
207 
208 
209 
210 
211 
212 
21) 
214 



02)5 
0236 

0237 
0340 
0341 
0342 
024) 
0244 
0245 
0246 
0347 
0350 
0351 
0353 
0353 
0354 
0355 
0356 
0357 
0260 
0361 



0362 
036) 

0264 
0365 
0266 
0267 
0270 
0271 



5342 
1252 
7040 
3247 
3351 
3247 
5230 
3251 
2233 
56J3 
0000 
0000 
0000 

0000 
0410 
2213 
0105 
4040 
2001 
2333 
4P00 



0000 

4771' 

7000 

1021 

7710 

7614 

1020 

5662 



NOSEI, 



JMP 
TAD 
CHA 
DCA 
ISZ 
ISZ 
JMP 
OCA 
ISZ 
JMP I 

DOCNT, 

PASCNT, e 

DOSET, 

CNTVAL, 

HESPAS, TEXT 



NOSET 
CNTVAL 

DOCNT 

DOSET 

DOCNT 

CBBYl 

DOSET 

CKCOUT 

CKCOUT 



'DHRKAE PASS 



/l»C8PASs COUNT VALUE OK 

/CBPASS COUNT VALUE ON 

/GET COUNT VALUE FOR THIS PROG 

/SET TO NEGATIVE 

/STORE IN HERE 

/INDICATE VALUE SET UP 

/COUNT THE NUMBER OF PASSES 

/EXIT FOB ANOTHER PASS 

/SET TO CepRNT CBPASS 

/BUMP RETURN FOR 

/C8PASS C8TYPE OUT 



/C8CKSM 

/THIS ROUTINE CAN BE USED INpLACE OF « READ THE SWITCHES LAS. 

/ROUTINE THAT HILL CHECK WHERE ID READ THE 

/CB SWITCHES FROM IE. FROM PANEL OB PSEUDO SWITCH pFGISTER 

/THE SELECTION Is DETERMINED PY THE STATE OF BIT IN LOCATION 21, 

/CRCKSWr JMS XC9SW 

/EX, JMS XC8SW /READ THE C9SWIT REGISTFR 

/RFTURN WITH THE CONTFNIS OF SWITCH REGISTER 

/RETURN TO NEXT LOCATION FOLLOWING C«IL WITH THE AC« TO VALUE OF C8SWII SETTING 

/CALLS USED APE-XCBCKpA- 



xcesH, e 



JMS 


XCBCKPA 


NOP 




TAD 


21 


SPA CLA 




7614 




TAD 


20 


JMP I 


xcesw 



/GO CHECK THE IF ANY rOMBL 

/GET WD FOP INDICATOR 

/CHECK IF FRO" PANEr 4^()f! 

/DO LAS AND SKIP GET FROM PANFL 

/P5EU00 SUTCH 

/EXIT "ITH STATUS BIT I» AC, 



315 
316 
317 
31S 
319 
332 
331 
333 
333 
334 
335 
336 
337 
328 
339 

3ja 

331 
333 
333 
334 
335 
336 
337 
339 
339 
340 
341 
343 
343 
344 
345 
746 
347 
349 
349 
2SH 
751 
353 
353 
354 
355 
756 
357 
358 
359 
7611 
761 
362 
363 
764 
365 
366 
767 
2«t 
269 



0272 
0273 
0274 
0275 
0276 
0277 
0300 
0301 
0302 



0303 
0304 
0305 
0306 
0307 
0310 
0311 
0313 
0313 



0000 

6031 

5773 

6036 

0370 

1367 

3766' 

1766' 

5672 



0000 
750« 
1703 
3336 
3303 
1736 
0365 
7450 
5703 



/C9TTYI 

/THIS ROUTINE kILI. LOOK FOR A INPUT FRO" THE TERMINAL 

/AND REMOVE ANY PARITY BITS, THEN MAKE IT 9 BIT ASCI. 

/ C9TTYI« JMS XC8TTY 

/EX, J"S XC8TTYI /RtAD CHAR FROM THE CONSOL DEVICE 

/ /RETURN TO CALL PLUS ONE AC CONTAINS THE CHAR 

/CALLS USED -NONE- BUT C9CHAR IS OFF PAGE AND IN ROUTINE CALLED XC8ECH0 



I 
I 

XC9TTY, 



KSF 
JMP 
KRB 
AND 
TAD 
DCA 
TAD 



,-1 

(177 

(200 

C8CHAR 

C9CHAR 

XC8TTY 



/LOOK FOR KEYBOARD FLAG 

/GET CHAR 
/MASK FOR 7 BITS 
/ADD THE EIGTK BIT 
/STORE IT 

/EXIT 



/THIS ROUTINE BILL TYPE THE CONTENTS OF THE C9 PRINT BUFFER, THE LOCATION 

/OF THE BUFFER "ILL BE IN THE ADDRS FOLLOWING THE CALL. PRINTING OF THE BUFFER 

/WILL STOP HHEN A 00 CHAP IS DETECTED. CHARACTERS ARE PACKED 2 PER »ORD. 



/EX, 
I 



CePBNT« JMS XC9PNT 



JMS XC9PNT 
HESS77 



/C8PRNT THE CONTENTS OF THE FOLLOWING BUFFER 
/LOCATION OF C9PRNT BUFFER 



/C8PRNT WILL USE THE LOCATION FOLLOWING THE CALL As THE POINTER FOR THE 
/C8PRNT ROUTINE, RETURN TO CALL PLUS TWO WITH AC» 

/CALLS USED ARE-XCeTYPE-XC8PNT 



C9D01, 





CLA CLL 

TAD I 

DCA 

ISZ 

TAD I 

AND 

SNA 

J"P I 



XC9PNT 
PTSTOR 
XC8PNT 
PTSTOR 
(7700 

XC9PNT 



/GET C9PBNT BUFFERS STARTING LOCATION 

/STORE In PTSTOR 

/BUMP RETURN 

/GET DATA WORD 

/HASK FOR LEFT BYTE 

/CHECK If 00 TERMINATE 

/EXIT 
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270 
271 
272 
273 
274 
375 
276 
377 
279 
279 
390 
381 
292 
293 
284 
285 
296 
397 
398 
789 
390 
291 
292 
393 
294 
295 
296 
397 
299 
299 



0314 
0315 
0316 
0317 
0320 
0321 
0323 
0323 
0324 
0325 
0326 
0327 
0330 
0331 
0332 
0333 
0334 
0335 
0336 



7500 

7020 

7001 

7013 

7013 

7012 

4764' 

1736 

0363 

7450 

5703 

1362 

7500 

1361 

1360 

4764' 

2336 

5310 

0000 



SMA 
CML 
lAC 
RTP 
RTR 
RTR 
JMS 
TAD 
AND 
SNA 
JMP 
TAD 
SMA 
TAD 
TAD 
JMS 
ISZ 
JMP 



PTSTOR, 



XC8TYPE 

PTSTOR 

(0077 

XC9PNT 
(3740 

(100 
(240 
XC8TYPE 

PTSTOR 
C8D01 



/IS AC MINUS 

/MAKE CHAR A 300 AFTER ROTATE 

/MAKE CHAP A 200 AFTER ROTATE 



/PUT CHAR IN BITS 4-11 MAKE IT 9 BIT ASCII 

/C9PBNT IT ON CONSOLE 

/GET DATA WORD 

/MASK FOR RIGHT BYTE 

/CHECK IF B0 TERMINATOR 

//EXIT 

/ADD FUDGE FACTOR TO DETERMINE IF 200 

/OR 300 IS TO BE ADD TO CHAR 

/ADD 100 

/ADD 300 

/C9IYPE ONLV BITS 4-11 

/BUMP POINTER FOR NEXT WORD 

/DO AGAIN 

/STOP FOR C9PRNT BUFFER 



/C9PAUS 

/THIS ROUTINE WILL CHECK IF THE CONSOL PACKAGE IS ACTIVE, IF ACTIVE 
/IT WILL RETURN TO CALL PLUS ONE AC» 0. AND DO THAT INSTRUCTION. 
/IF THE CONSOL PACKAGE IS NOT ACTIVE THE CALL WILL BE REPLACED 
/WITH A 7402 HALT AND THEN RETURN TO THE HALT. 



C9PAU5S JMS XCBPAU 



301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
J16 
317 
319 
319 
320 
321 
333 
333 
334 



/EX, 



JMS XC8PAUS 
ANYTHING 



0337 
0340 
0341 
0343 
0343 
0344 
0345 
0346 
0347 
0350 



0000 

7300 

4777' 

5350 

7040 

1337 

3337 

1357 

3737 

5737 



0357 7402 

0360 0240 

0361 0100 



/CALLS UEFD ARE -CHKCLA- 



XCBPAU, 



CLA 


CLL 




JMS 




CHKCLA 


J"P 




C8D03 


CMA 






TAD 




XC9PAU 


DCA 




XC8PAU 


T»D 




(7402 


DCA 


I 


XCBPAU 


J"P 


I 


XCBPAU 



/CHECK IF ON ACTIVE CONSOL IF NOT HALT HEBE 
/RETURN HERE IF ON ACTIVE CONsOL 



/CHECK LOr 22 BIT 3 CONSOLE BIT 

/GO DO COMSOL kiRT RETURN CALL ♦! 

/DEACTIVE CONSOLE PACKAGE PUT HLT IN CALL 

/GET CORRECT RETURN ADDF5 

/SET IIP RETURN 

/GET CODE FOP HLT 

/PUT HALT IN CALL LOCATION 

/GO TO HALT OR RETURN TO NEXT LOCATION 



P»Lie VI42» 7.H»R.77 



325 

3>« 
327 
328 
324 
3}» 
311 
332 
333 
334 
335 
336 
337 

33a 

339 
34« 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
355 
359 
360 
361 
362 
363 
364 
365 
366 
36T 
361 
369 
37* 
371 
372 
373 
374 
375 
376 
377 
375 



(362 
e363 
e364 
1)65 

»366 

0367 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 



0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0420 



3740 
0077 
1077 
7700 
1075 
0200 
0177 
1041 
0635 
1R0« 
1023 
0400 
0624 
1200 
0400 



SEQ 0028 



0000 

3777" 

4776' 

5206 

1777* 

5600 

6004 

377!' 

7501 

3774' 

3255 

1257 

3256 

1656 

7450 

5226 

1773" 



/C8CNTR 

/THIS ROUTINE WILL CHECK FOR THE PRESENCE OE CONTROL CHARACTERS 

/IT WILL CHECK FOR THE FOLLOWING CHAR C-R-O-L-S 

/ CeCNTR. JMS XCSCNT 



/EX. 


JMS 


XC8CNTR 


/ 


JXP 


ANYTHING 


/ 

/ 


JMP 


ANKTHINS 



/CHECK FOR CONTROL CHARACTER 

/LOC FOLLOWING CALL IS FOR CONTINUING THE PROGRAM 

/Loe, IS FOR RETURN IF INMODE SET AND NOT CNTRL CHAR 



/RETURN IS TO CALL PLUS ONE IF CONTINUE 

/RETURN IS TO CALL PLUS TWO IF INMODE SET AND NOT CONTROL CHAR 

/RETURN IS TO CALL PLUS TWO IF INMODE IS NOT SET AND NO 

/CONTROL CHAR ..THIS WILL PRINT THE CHARACTER AND A ? 

/CLEAR THE AC AND RETURN CALL*2. 



/CALLS USED 

/ 

/ 

/ 

XC8CNT. 

DCA 
JMS 
JMP 
TAD 
JMP 
GTF 
DCA 
MOA 
DCA 
DCA 
TAD 
DCA 

RIDOA, TAD 
SNA 
JMP 
TAD 



ARE.CHKClA.XC8TKPE.XC8CRLF.CeGET.UPAR0W.XCeTYI.XC8PSW- 



AC8AVE 

CHKCLA 

.♦} 

AC8AVE 

XC8CNT 

FLSAVE 

MQSAVE 
INDEXA 
XTABLA 
OEIDAT 
6ETDAT 

DONEA 
C8CHAR 



/SAVE THE AC 

/CHECK LOC. 22 BIT3 FOR CONSOLE BIT 

/ON ACTIVE CONSOLE 

/DEACTIVE CONSOLEGET AC FOR RETURN 

/EXIT NOT ON ACTIVE CONSOLE 



/SAVE THE HQ 

/SET DISPLACEMENT INTO TABLE B 

/GET ADORS of table A 

/CONTAINS POINTER TO CONTROL CHAR 

/GET CONTROL CHAR FROM TABLE 

/CHECK FOR A END OF TABLE 

/END OF TABLE NO CONTROL CHAR 

/COMPARE CHAR TO CONTROL CHAR 
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179 
380 

181 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

193 

394 

395 

396 

197 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

411 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

410 

431 

432 

433 



0421 
0422 

0421 
0424 
0425 

0426 
0427 

0410 

0411 

0412 

0411 

0414 

0435 

0416 

0417 

0440 

0441 

0442 

0441 

0444 

0445 

0446 

0447 

0450 

0451 

04S2 

0453 

0454 

0455 

0456 

0457 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0470 

0471 
0472 
0473 
0474 

0475 
0476 
0477 



7650 
5241 
2255 

2256 
5215 

1772* 

7640 

5240 

1771* 

4771* 

1170 

4771* 

4767* 

2200 

5600 

2200 

1771* 

5600 

1771* 

1366 

3773* 

1260 

125! 

3254 

1654 

1254 

5654 

0000 

0000 

0000 

F461 

0471 

7575 

7564 

7557 

7556 

7555 

757? 

7574 

0000 

0551 
0537 
0500 
0511 
0521 
054! 
0600 



DONEA, 



EXITA, 
GOITA, 



GOTOA, 

INDEXA, 

OETOAT, 

XTABLA, 

XTABLB, 

TABLA, 



SNA CLA 

JMP 

ISZ 

ISZ 
JMP 
TAD 
SZA CLA 

JMP 

TAD 

JMS 

TAD 

JMS 

JMS 

ISZ 

JMP I 

ISZ 

TAD 

JMP I 

TAD 

TAD 

DCA 

TAD 

TAD 

DCA 

TAD I 

DCA 

JMP I 



GOITA 

INDEXA 

GETDAT 

REDOA 

INMODE 

EXITA 

C8CHAR 

XC8TYPE 

(277 

XC8TYPE 

XC8CRLF 

XC8CNT 

XCeCNT 

XC8CNT 

CSCHAR 

XC8CNT 

CSCHAR 

(100 

CSCHAR 

XTABLB 

INDEXA 

GOTOA 

GOTOA 

GOTOA 

GOTOA 



/0 IF MATCH 

/MATCH 

/NO MATCH NOT END OF TABLE REDO 

/BUMP INDEX FOR EXIT WHEN CONTROL FOUND 

/BUMP GETDAT FOR COMPARE OF NEXT CNTRL CHAR. 

/CHECK IF PROGRAM EXPECTS CHAR 

/1»CHAR EXPECTED 0s NO CHAR EXPECTED 

/CHAR EXPECTED 

/GET CHAR . NOT CONTROL ♦ NOT EXPECTED 

/C8PRNT CHAR 

/GET CODE FOR "T" 



/BUMP RETURN 

/EXIT CALL+2 

/BUMP RETURN FOR MAIN PROGRAM CHECK OF CHAR 

/PUT CHAR IN AC. 

/EXIT 

/GET THE CONTENTS OF CHAR 

/ADD 100 TO FORM A GOOD ASCII CHARACTER 

/RESTORE COFFECT CHAR 

/SET START OF TABLE B 

/GET NOW FAR INTO TABLE 

/STORE IT 

/GET THE ROUTINE STARTTING ADDRESS 

/STORE It IN HERE 

/GOTO CONTROL CHAR ROUTINE 

/ADD OF CNTRL ROUTINE TO EXECUTE 

/DISPLACEMENT INTO CNTRL TABLE 

/LOCATION OF ADDRS OF CONTROL CHAR, 

/ADDRS OF TABLEA 

/ADDRS OF TABLEB 

/CNTRL C BACK TO MONITOR 203 

/CNTRL L SWITCH ERROR PPINTTINE DEVICE 214 

/CNTRL START DISPLAYING CHAR. AGAIN 221 

/CNTRL p BACK TO BEGINNING OF PROGRAM 222 

/CNTRL 5 STOP SENDING CHAR TO DISPLAY WAIT FOB CNThL 223 

/CNTRL E CONTINUE WITH PROGRAM 205 

/CONTROL n CHANGE SWITCH RtGISTER ON FLY 



0500 3772' 



0000 

0000 

TABLA 

TABLB 

7!7! 

7564 

7557 

7556 

7!5! 

7!73 

7S74 

0000 

TABLB, CNTRLC 

CNTRLL 

CNIRLO 

CNTRLR 

CNTRLS 

C"TBLE 

CNTRLD 
/ 

/CONTROL 

/START SENDING CHAR. TO THE DISPLAY 
/THIS WILL RETURN CONTROL TO CALL THAT WAS SET BY 
/THE CALL FOR CONTROL 5, 
/ 
CNTRLO, DCA INHODF /SET SOFT FLAG FOP UNEXPECTED CHJP 



PSL10 VUJ» 7-MAR-77 



<]4 

435 
436 
437 
438 
439 
440 
441 
442 
443 
«44 
445 
446 
447 
448 
449 

tie 

451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
47B 
471 
472 
473 
474 
475 
476 
477 
476 
479 
460 
461 
463 
483 
484 
485 
486 
487 
488 



8501 
0502 
0503 
0504 
0505 
0506 
0507 
0510 



0511 
0512 
0513 
0514 
0515 
0516 
0517 



0521 
0522 
0523 
0524 
0525 
0526 
0527 
0530 
0531 
0532 
0533 
0534 
0535 
0536 



0537 
054? 
0541 
0542 
0543 
0544 



1335 

7640 

5106 

4765- 

5600 

3335 

4765' 

5736 



3764' 
3135 

3772" 

4763' 

3762' 

6203 

5720 



0520 020? 



1335 

7649 

5327 

7001 

1200 

3336 

2335 

4761' 

4765' 

4200 

7200 

5321 



1764' 

7040 

3764' 

4763* 

4765' 

560" 



BYBEIR, 



I»D 

SEA Chk 
JMP 
JUS 
JMP I 
DCA 
JMS 
JMP I 



C8SETS 

BYRETB 

CBGET 

XCecNTR 

CeSETS 

CBCET 

CBREIR 



/CONTROL R 

/GO 10 THE QUESTION CBSWI 



CNTRIR, 



C8By4, 



XDOSt), 
/ 



DCA 
DCA 
DCA 
J«I5 
DCA 

CDF cir 
J«P I 
BGN 



TTYLPT 
C8SETS 
INHODE 
UPAROU 
C8SWST 

XOOSH 



/CHECK U CONTROL 5 TYPED IN 

/CONTROL S TYPED Ih 

/NO CONTROL S TYPED PREVIOUSLY 

/LEAVE VIA CNTR ENTRY ADDRESS 

/CLEAR THE SOFT FLAG 

/RESTORE REGISTERS 

/EXIT TO ADDRESS SET PY CONTROL S 



/CLEAR THE TYPE FLAG SET TO TTY 
/CLEAR SOFT FLAG FOR CNTRL 5 

/PRINT THE • AND CBCHAR 
/CLEAR FLAG FOR CNTRL D OR R 

/GO TO ADDRS OF CBSWIT 

/DOSW IS LABEL FOR CBSWIT QUESTION 



/CONTROL S 

/STOP SENDING CHAR, TO 



DISPLAY UNTIL » "0 IS RECEIVED 



CNTRLSi TAD 

SZA CLA 

J"P 

lAC 

TAD 

DCA 

ISZ 

JMS 

J"S 

JH5 

CLA 

JMP 



C8D07, 



C6SETS 

C8D07 

XC8CNT 

C8RETR 

C88ETS 

XC8TTYI 

CBGET 

XCBCNTR 

CNTRL5 



CBSETS, 

CBRETR, 

/ 

/SWITCH OUTPUT FROM ONE 

/CONSOLE AND THE PRINTER 



TTYLPT 



CNTRLL, IAD 
CMA 

DCA TTYLPT 
JMS UPAROW 
JMS CBGET 
JMP I XC8CNT 

/ 

/CONTROL E 

/CONTINUE RUNNING FROM 

/ 



/IFl DO NOT STORE IN CBRETR 

/DONT SET UP C8RETR 

/HAKE RETURN CALL PLUS 2 

/GET RETURN FOR THIS CALL 

/STORE IT HERE FOR USE BE CNTROL Q 

/SET FLAG TO SAVE CALL 

/LOOK FOR THE INPUT 

/GET REGISTERS 

/CHECK FOR THE CONTROL CHAR 

/IF NOT A CNTRL R C REASK 



OUTPUT DEVICE TO ANOTHER . THE TWO OUTPUTS ARE THE 
WITH DEVICE CDOE 66. 



/GET PRESENT CBSWIT INDICATOR 

/COMPLEMENT IT 

/STOR NEW CBSWIT 

/C8PRNT * AND CHAR ON NEW DEVICE 

/RESTORE THE REGISTERS 

/EXIT 



A INQUIRE OR ERROR 



PAL10 V142A 7-MAR.77 



13155 PAGE 1>9 



489 






/ 






490 


0545 


4763' 


CNTRLE, 


JMS 


UPAROW 


491 


0546 


3762' 




DCA 


C8SWST 


492 


0547 


4765' 




JMS 


C8GET 


493 


0550 


5600 




JMP I 


XC8CNT 


494 






/ 






495 












496 






/CONTROL r 




497 






/RETURN 


1 TO MONITOR CONTROL C 


496 


0551 


3764' 


CNTRLC, 


DCA 


TTYLPT 


499 


0552 


3762' 




DCA 


C8SWST 


500 


0553 


4763' 




JMS 


UPAROW 


501 


0554 


6203 




CDF CIF 




502 


0555 


6007 




CAF 




503 
504 


0556 


5760 


/«««•«« 


JMP I 


C7690 


505 






/ 






596 






/ 






507 






/ 






506 


0560 


7600 








599 


0561 


0272 








510 


0562 


0745 








511 


0563 


0615 








5tJ 


0564 


1121 








513 


0565 


0624 








514 


0566 


0109 








515 


0567 


192 3 








516 


0570 


»?77 








517 


0571 


1»77 








?19 


0572 


1076 








519 


0573 


1075 








520 


0574 


1346 








521 


0575 


1347 








522 


9576 


1200 








523 


0577 


1345 

060>l 


PAGE 






524 












575 






/ 






526 












537 












526 












529 












559 












531 


9690 


4215 


CNTRLD, 


JMS 


UPAROW 


532 


9691 


1213 




TAD 


CSSETD 


533 


0602 


7649 




SZA CLA 




534 


0603 


5297 




J"P 


C8D011 


535 


9604 


1777' 




TAD 


XCBCNT 


536 


0605 


3214 




DCA 


CBRETD 


537 


0606 


2213 




ISZ 


CSSETn 


538 


0607 


4256 


C6D011, 


JMS 


xcepsK 


539 


0619 


3211 




DC* 


CeSETD 


540 


B611 


4224 




JMS 


rsGET 


541 


0612 


561 4 




JMP I 


CSRFTn 


542 






/ 







SEQ 0031 



/PRINT THE CONTROL CHAR 
/CLEAR FLAG. 
/GET THE REGISTERS 
/RETURN TO CALL PLUS ONE 



/CLEAR THE LPT FLAG TO PRINT ON DISPLAY 

/CLEAR FLAG. 

/CBPRNT A* AND LETTER IN CHAR 

/GO 10 9 FLD 

/CLEAR THE WORLD 

/GO TO DIAGNOSTIC MONITOR 



/CONTROL 

/CHANGE IHF SBITCH BEGISTFR AXYTIME CNTRL D A>'D RETURN TO 

/THE PROGRAM RUNNING. 



/CHFC IF THE RETURN ADDPS IS SAFE 



/DO NOT CHANGE THE PEIUkN ADDRS 

/GET THE RETURN ADDPS A^'D SAVE II 

/SAVE THF RETURN HERE 

/INDICATE RFTtIRN SAVED DONl OlSTFOi 

/GP CHANGE THE SUITCH REGISTER 

/CLEAR THF FLAG 

/RESTORF THE AC HQ LINK tTC 

/RETURN TO THE PPOGRA*" 



15:55 P»GF )-!« 



543 
544 
545 
54S 
S47 
S4e 
549 

sse 

551 
5SJ 
553 

554 
555 
556 
557 
!5B 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
578 
571 
57J 
STJ 
574 
575 
576 
577 
576 
579 
5B0 
591 
582 
S83 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 



0613 0300 

0614 0000 



0615 0000 

0616 1376 

0617 4775' 

0620 I774» 

0621 4775* 

0622 4773" 

0623 5615 



0624 0000 

0625 7200 

0626 1772' 

0627 7421 
0610 1771' 

0631 7004 

0632 7200 

0633 1770' 

0634 5624 



0635 0000 

0636 7300 
06J7 4767' 

0640 7410 

0641 S63S 

0642 4766' 

0643 0651 



C8SETD, 
CBREID, 



SEQ 0032 



/THIS WILl TVPE A UP »RPOW AND THE CH«B IN CSCHAR, 



UPAROW, 

TAD 
JMS 
TAD 
JMS 
JMS 
JMP I 



(336 

xceiipE 

C8CHAR 
XC8TYPE 
XCSCBtr 
UPAROW 



/C8PBNT THE "*" AND THE CHAP CBTYPED IN 
/CODE POP • 



/CBTYPE THE CHAR 
/EXIT 



CeCET, 



CIA 




TAD 


MQSAVE 


HOL 




TAD 


FLSAVE 


RAL 




CtA 




TAD 


ACSAVC 


JMP I 


C8GCT 



/RESTORE HQ 
/RESTORE THE LINK 



/RESTORE THE AC 
/SET THE REGISTERS 



/CBINOU 

/CeiNSU ROUTINE HILl PRINT A MAITING 

/AND THE PROGRAM IS EXPECTING A CONTROL CHAR INPUT 

/ir CONTINUE FROM CONTROL CHAR RETURN IS CALL PLUS ONE 

/IF NO CONTROL CHAR ENTERED THEN WAITING Is REPRINTED 

/AND PROGRAM MAITS FOR A CONTROL CHAR AGAIN, 



/EX, 



CBINSU > 



JMS XCBINO 
DO ANYTHING 



JMS XCBINO 



/Ce WILL PRINT A WAITINGAND W»IT FOR INPUT 
/RETURN IS CALL PLUS ONE AC »0 CONTINUE 



/CALLS USED ABE -CHKCLA-XCePNI-XCBTTI-CSGET-XCSCNTP- 



XC8IN0, 



CI.A CLL 

J"S CHKCLA 

SKP 

JMP I XCBINO 

JMS XC8PNT 

NATMES 



/CHECK LOC 22 BIT 3 CONSOLE BIT 
/ACTIVE CONSOLE PACKAGE 
/NOT CONSOLE LEAVE 

/INSUIR WAITTING 



PAL10 V142A 7-HAR'77 



13:55 PAGE 1-11 



59B 
599 
600 
«01 
602 
603 



604 

60S 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

61B 

619 

620 

621 

622 

623 

624 

625 

626 

627 

62B 

629 

630 

631 

632 

633 

634 

635 

636 

6J7 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 



0644 
0645 
0646 
0647 
0650 
0651 
0692 
0653 
0654 
0655 



0662 

0663 
0664 
0665 
0666 
0667 
0670 
0671 
0672 
067 3 
0674 
0675 
0676 
0677 
070? 



4765' 
4224 
4777' 
5635 

5236 

2701 
1124 
1116 

0740 
0000 



0656 0000 

0657 4767' 

0660 7410 

0661 56S6 



1345 

7640 

5764' 

2345 

4766' 

0747 

1020 

4763' 

1362 

4775' 

7761' 

4769' 

4315 

1774' 

3!<20 



0701 1357 

0702 3346 

0703 4760' 

0704 4315 



JMS 
JMS 
JMS 
JMP I 
J"P 
WATMES, TEXT 



XCBTlyl 

CeGCT 

XCBCNTR 

XCBINO 

XCBINOfl 

"WAITING 



/GET CHARACTER 

/CHECK IF CONTROL CHARACTER 

/EXIT AND CONTINUE 

/REASK 



/CBSWIT 

/ROUTINE WILL CHECK Ir COHSOL IS ACTIVE IF IT IS ACTIVE DISPLAY 

/SW OUESTION , IN NOT ACTIVE IT WILL MOT PRINT THE 5W OUESTIOK BUT 

/RETURN TO CALL PLUS ONE AC«0, 

/CBSWIT WILL SET UP THE PSEUDO SWITCH 

/REGISTER WITH THE NEW DATA ENTERED 

/ 

/ CSSWIT » JMS XCBP5W 



/EX. 



JMS 



xcepsw 



/SET UP PSFUDO CBSWIT REGISTER IF 
/ON THE CONSOl PACKAGE. RETURN Is CALL PLUS ONE »c 



/CALLS USED ARE -CHKCLA-XCBPSW-XCBPNT-XCflOCTA-XCSTYPE- 



XCBPSW, 

JMS 
SKP 

JMP 1 

TAD 
SZA CLA 

JMP 
ISZ 
CSRDPSi JMS 
MESA 
TAD 
JMS 
TAD 
JMS 

ISZ 
JMS 
JMS 
T5D 
DC« 

TAD 

DCA 

CETCHl, JMS 

JMS 



CBBY4 

CBSWST 

XC8PNT 



XCBOCtA 

(40 

XCBTIfPE 

INHODF 

XCBECHO 

TSTCHA 

C8CHAR 

2o 

(-3 

TMPCNT 

XCBECHO 

TSTCHA 



/CHECK LOC 22 BIT 3 CONSOLE BIT 

/ACTIVE CONSOLE 

/DEACTIVE CONSOLE PACKAGE 

/RETURN WITHOUT ASKING PSEUDO SWITCH 

/IS THE SOFT FLAG SET FOR SWITCH? 

/SKIP IF ONE ENTRY AT ATIME OK 

/SECOND ENTRY WITH OUT A EXIT CO TO SW OUESTION 

/FIRST ENTRY SET FLAG 

/CB0R1T SPc 

/GET CONTEHIS OF SW 
/CONVERT IT Tn ASCII 
/GET SPACt 

/SET Flag for char fxected 

/LOOK FOR INPUT 

/NOT CONTPnl TEST IT IS LEGAL 

/STORE NEW CHAR IN SW REG 



/GET • "INUS 3 

/STORE IN TEMP COUNT 

/r.ET NFXT CHAP 

/CHFC If CP * GOOD CHAR 





pfkLie 


VI42A 


7-MJB-77 


UI55 


649 


0705 


1020 




T»D 


2B 


esa 


0706 


7106 




BTl CUL 






0707 


7004 




RAL 






0710 


1774' 




TAD 


C8CHAP 




0711 


1020 




DCA 


20 




0712 


2346 




ISZ 


THPCNT 




0713 


5303 




JMP 


GETCH1 




0714 


5342 




J«p 


ENDIT 




0715 


0000 


ISTCH», 









0716 


7041 




CIA 






0717 


1356 




TAD 


(215 




07J0 


7650 




SNA CLA 






0721 


5342 




J«p 


ENDIT 




0732 


1774' 




TAD 


C9CHAP 




0723 


1355 




TAD 


(-260 




0724 


7710 




SPA CLA 






072S 


5336 




jxp 


EPHl 




0726 


1774' 




TAD 


eSCHAP 




0727 


1354 




TAD 


(-270 




0730 


7700 




SMA CbA 






0731 


5336 




jxp 


EPRl 




0732 


1774' 




TAD 


CBCHAP 




0733 


0353 




AND 


(7 




0734 


3774' 




DCA 


C8CHAP 
















0735 


5715 




JHP I 


TSTCHA 




0736 


1352 


ERRl, 


TAD 


(277 




0737 


4775' 




JUS 


XC8TYPE 




0740 


4773' 




JUS 


XC8CRI,F 




074) 


5266 




JHP 


CSRDPS 




0742 


477!' 


ENDIT, 


JMS 


XCBCRLF 




0743 


3345 




DCA 


cesNST 




0744 


5656 




JMP I 


XC8PSW 




0745 


0000 


CSSUST, 





















0746 


0000 


TMPCNT, 









0747 
0750 
0751 


2322 

7540 
0000 


MESk, 


TEXT 


"SR« " 




























0752 


0277 










0753 


0007 










0754 


7510 










0755 


7520 










0756 


0215 










0757 


7775 










0760 


106 3 










0761 


1076 










0762 


0040 










0763 


1000 










0764 


0515 










0765 


0272 










0766 


0303 










0767 


1200 









/5ET C8SWIT REGISTER 
/ROTATE IT LEFT 3 PLACES 

/GET CHAR t ADD IT TO PREVIOUS CONTtNTS 

/SAVE NEW CONTENTS 

/BU«P COUNT 

/JMP BACK ♦ GET NEXT CHAR 

/END 4 CHAR CRTypED IN 

/CMPL CHAR IN AC 

/TEST IF IT IS A CARRIAGE RETURN 

/SKIP IN NOT CB. 

/WAS CARRIAGE PETURU 

/NOT CB, GET CHAR 

/CHECT IF IT IS IN RANGE 

/IF NOT POSITIVE CBERR CHAP SMALLER THEN 260 

/CSERR - CHAR 100 SMALL 

/GET CHAR 

/GET « -270 ♦ CHECK IF II IS LARGER THEN 7 

/SKIP IF LESS THEN 7 

/C8ERR ON CHAR NOT IN RANGE 

/GET CHAR 

/MASK FOP RIGHT BYTE 

/STORE IN CHAR 

/GET CHAR IN AC 

/EXIT 

/CBPRNT 

/? 

/ 

/EXIT ♦ ASK AGAIN 

/DO A CR LF 

/CLEAR THE PSW ENTRY FLAG 

/EXIT ROUTINE 



SEQ 0034 
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702 
703 
704 
705 
706 
707 
708 
709 

710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
739 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 



0770 
0771 
0772 
0773 
0774 
0775 



1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1020 
1021 
1022 



1345 
1347 
1346 
1023 

1075 
1077 



0776 0336 

0777 0400 



7106 
7006 
3221 
1377 
3222 
122! 
0376 
1375 
4277 
1321 
7006 
7004 
3221 
222 3 
5206 
5600 
0000 

000C 



PAGE 

/CBOCTA 

/OCTAL TO ASCII CONVERSION 

/THIS ROUTINE WILL TAKE THE OCTAL NUMBER IN THE AC AND CONVERT IT TO ASCII 

/THE RESULT WILL BE PRINTED ON THE CONSOL TERMINAL 

/ C90CTA« JMS XCBOCT 



/EX, 
/ 



J«S XCeOCTA /AC CONTAINS NUMBER TO BE CHANGE 

RETURN IS TO CALL PLUS ONE »C«0 



/CALLS USED ARE -XCBTYPE- 



CBD04, 



CLL RTL 




RTL 




DCA 


CBIMP] 


TAD 


(-4 


DCA 


cacKp 


TAD 


CBTMPI 


AND 


(0007 


TAD 


(260 


JMS 


XCBTYPE 


TAD 


C8TMP1 


RTL 




RAL 




DCA 


CSIMPi 


ISZ 


C8CKP 


JMP 


C8D04 


JMP I 


XCBOCT 


CBTMPI, 





C»CKP, 






/POSITION THE FIRST CHAR FOR PRINTING 
/SAVE CORRECT POSITIONED WORD HERE 

/STORE COUNTER IN HERE 

/GET FIRST NUMBER 

/MASK 

/ADD THE PRINT CONSTANT 

/TYPE THE NUMBER 

/ 

/PUT NEXT NUMBER IN POSITION 

/STORE IT 

/DONE YET WITH FOUR NUMBERS 

/NOT YET DO MORE 

/DONE WITH FOUR 



/C8CRLF 

/C8TYPE CR AND LF WITH FILLERS FOLLOWING EACH LF AND CH 

/ 

/ CBCRLFs JMS XC8CPL 



/EX, JMS XC8CRLF 

/ 

/CALLS USED ARE -XC8TYPF. 



/CBPRNT A CR AND LF WITH FILL 
/RETURN TO CALL PLUS CXt iC sO 
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756 

757 

75) 

759 

76» 

761 

76> 

763 

76« 

765 

766 

767 

768 

76* 

77» 

771 

77J 

77) 

774 

775 

776 

777 

779 

779 

758 

781 

78J 

783 

794 

785 

786 

787 

781 

789 

798 

791 

792 

79) 

794 

795 

796 

797 

798 

7»9 

808 

8*1 

882 

88) 

884 

885 

88« 

887 

881 

889 

818 



8ES 0036 



1823 
1824 
1825 
1826 
1827 
18)8 
18)1 
18)2 
183) 
18)4 
18)5 
18)6 
1837 
1848 



(•41 
1842 
184) 

1844 
1845 
1846 
1847 
1858 
1851 
1852 
1853 
1854 



8888 
7)88 
1)74 
4277 
12)7 
7848 
3?4« 
1373 
4277 
2248 
52)) 
562) 
8884 
8888 



•888 

)772' 

6884 

3771' 

7581 

3778' 

6831 

5261 

4767* 

7418 

5261 

4766* 



XC8CRl.F,e 

Clt CLL 

T>D 

J"S 

T»D 

CM* 

DCA 

TAD 
C8D02, JMS 

IS2 

JMP 

JMP I 
FILLES, 8884 
riLCNT, 8 



(215 
XC8TIPE 

FILLER 

FILCNt 

(212 

XC8TIPE 

FILCNT 

C8D02 

XC8CRL 



/GET CODE FOR CR 



/STORE FILLER IN HERE 
/SET CODE FOR If 

/CHECK "N FILLER CHAR 

/TYPE A NON PRINTING CHAR 

/EXIT 

/FILLER SET FOP 4 CHAP 

/COUNTER FOR FILL 



/C8CKPA 

/THIS ROUTINE WILL CHECK IF A CHARACTER WAS ENTERED FROM THE 

/TERHINAL, IFIHE FLAG IS SET AND THE CONSOLE PACKAGE IS 

/ACTIVE A CHECK IS MADE TO DETERMIND IF IT IS A CONTROL CHAR. 

/IF IT WAS A CONTROL CHAP THEN ITS CONTROL FUNCTION IS PERFORMED 

/IF NOT A CONTROL CHARACTER OR A CONTROL E-O-l-O. IT WILL 00 

/THE CONTROL FUNCTION AND RETURN TO CALL PLUS 2. 

/A NON CONTROL CHARACTER WILL BE PRINTEDAND A "7" IT WILL RETURN TO 

/CALL PLUS 2. 

/IF HO FLAG IS SET OR THE COMSOL IS NOT ACTIVE THE RETURN IS TO 

/CALL PLUS 1. 



C8CKPA« JMS 



XC8CKP 



/EX, 

/ 

/ 



;?!!;.„,„.?"«''* 'C*'''' TO CHECK IF CONTROL CHAR SET 

A»TTHIHG(SKIP) /RETURN IF NOT FLAG OR NOT CONSOLE ACTIVE 

ANVTHINGtJMp EXIT SKIP CHAIN) /RETURN IF NOT CONTROL OR CONTINUE CONTROL 



/CALLS USED ARE -XC8TTyi-XC8CNTR.C8GET. 



xeacKP, 8 

DCA 
GTF 
DCA 
MOA 
DCA 
KSF 
JMP 
JMS 
SKP 
JMP 
JMS 



ACSAVF 

FLSAVE 

MQSAVE 

C8BY3 
CHKCH 

CBBy) 
XCSTTYI 



/SAVE THE AC 

/SAVE THE FLAGS 

/SAVE THE FLAGS 

/PUT MO IN AC 

/SACE THE MO 

/CHECK THE KEYBOARD FLAG 

/EXIT TO CALL PLUS 1 

/CHECK LOC 22 BIT 3 CONSOLE BIT 

/ACTIVE CONSOLE PACKAGE 

/EXIT TO CALL PLUS 1 

/GET THE CHAR 
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111 
112 
81) 
814 

• IS 
816 

• 17 
818 
819 
828 
821 
822 
82) 
824 

• 25 
826 

• 27 

• 28 

• 29 
8)8 
831 
8)2 
8)) 
8)4 
835 
836 

• 37 

• )• 

• 39 

• 48 

• 41 

• 42 
841 
844 
845 
846 
847 
848 
849 
858 

• 51 
852 
853 
854 
855 

• 56 

• 57 
858 
859 
860 
861 
962 
863 

• 64 
865 



1855 4765* 

1856 4764' 

1857 7888 
1868 2241 

1861 4765' 

1862 5641 



1863 
1864 
1865 
1866 
1867 
1878 
1871 
1872 
1873 
1874 
1875 
1876 



1877 
1188 

1182 
118) 
1184 
1185 
1186 



8888 

4766' 

4765" 

2276 

4764* 

566) 

4277 

)276 

1275 

5663 

8888 

8888 



8888 
3328 
1121 
7648 
5312 
1)2» 
6*46 
6841 



JMS 
JMS 
NOP 
ISZ 
C8BY3, JMS 

J"P I 
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C8GET /GET THE FLAGS 

XC8CNTR /CHECK IF CONTROL CHAR, 

/RETURN IF » CONTINUE CHAR. 

"C'CKP /BUMP RETURN FOR CALL PLUS 2 

C80ET /SET REGISTERS 

XC8CKP /SAY SOOD BY 



/C8ECH0 

/JUr^lr'Jr'Jlll'^yll'^'''' "'"' ^°* * ="»" '"O" "= KEYBOARD. STORE IT IN LOCATION CHAR 
/CHECK IF IT HAS A CONTROL CHARACTER - SET INMOOE - PRINT CHARACTER 

/ C8ECH0 » JMS XC8ECH 

/EX. JMS XC8ECH0 /LOOK FOR CONSOL CHAR C8PRNT IT 

/RETURN CALL PLUS ONE AC • CHAR ceiYPED IN 

/CALLS USED ARE -XC8TTYI.XCeCNTR.C80ET.Xe8ECH.XC8TTYPF 



XCeECH, 8 

JMS 
JMS 
ISZ 

JMS 
JMP I 
JMS 
DCA 
TAD 
JMP I 

C8CHAR, 8 

INMODE, 8 



XC8TTYI /WAIT FOR CHAR FROM KEYBOARD 

"GET /RESTORE THE REGISTERS 

INMODE /SET INMOOE IDENTIFING THIS AS A EXPECTED CHAR 

XCtCNTR /GO CHECK IF IT IS A CONTROL CHAR 

''^•ECH /WAS A CONTROL CHAR - CONTINUE RtlNNING 

XC8TYPE /NOT » CONTROL CHAR CSPRNT IT 

'""ODE /CLEAR FLAC THAT CHAR EXPECTED 

C8CHAP /GET CHAR IN AC 

XC8ECH /EXIT 



/C8IYPE 

/THIS ROUTINE WILL C8PRNT ON THE CONSOLE OB THE LPT UITH DEVICE CODE S6, 

CSIYPEi JMS XrSTYP 



/ 

/EX 



JMS 



XC6TYPE 



/C9PRNT THE CHAP IN THE AC. 

/ /RETIIBK c«LL PLUS ONE AC =mi0C 

/DO NOT CLE'P THt LINK IN THIS ROUTINE NEEDED PYCBOCI 

/CALLS USED ARE .CBHANG-XCSCNIP-XCSPNT-YCSCRLF-XCSINQli. 



XCeTYP, 8 

DCA PNTBUF 

TAD TTYLPT 

SZA CLA 

J"P XDOLPT 

TAD PNTBUF 

TL5 

TSF 



/STORE CHAR 

/CHECK f>=TIY 7777 = LPT 



/DO OtIT PUT ON LPT 
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966 
867 
S68 

• 69 
170 

• Tl 

• 72 
973 
974 
97S 
S76 
971 
978 
879 
9S0 
891 
992 

• 8) 

• 94 

• 9S 

• 86 
987 
988 
889 

• 90 
891 
892 

• 93 
894 
B9S 

• 96 

• 97 
998 

• 99 



9«0 
901 
90] 
903 
904 
905 
906 
907 
909 
909 
910 
911 
912 
913 
914 

915 



1107 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
1120 
1121 



1122 
1123 
1124 
1125 
1126 
1127 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1150 
1151 
1152 

1162 
1163 
1164 
1165 
1166 
1167 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 



5306 

6042 
5316 
1320 
6666 
4322 
6662 
7600 
5677 
0000 
0000 



7200 

1316 

3320 

6661 

7410 

5722 

2345 

5326 

2320 

5331 

1764' 

3322 

3321 

4763' 

1146 

4223 

4762' 

5722 

0000 

1420 

2440 

0522 

2217 

2200 

0635 
0303 
0<00 
0624 
0272 
1200 
1346 
1347 
1345 
0212 
0215 
0260 
0007 
7774 
1200 



XDOLPT, 



C8BY5, 



JMP 

Tcr 

JMP 
IAD 
PSIB 
JMS 

fcir 

7600 
JMP I 



.-1 

CSBYS 
PNTBUF 
PClr 
C8HANG 



SEO 003S 



PNTBUF, 
TTVLPT, 



CeHANG. 

CLA 

TAD 

DCA 

PSKF 

SKP 

JMP I 

ISZ 

JMP 

ISZ 

JMP 

TAD 

DCA 

DCA 

JMS 

ME8HANG 

JMS 

JMS 

JMP I 
C8C0NT, 
MESHANC.TEXT 



C8BY5 

PNIBUr 



C8HAIIS 

C8C0NT 

• -4 

PNIBUF 

.-3 

XC8CNTB 

C8HANG 

TTYLPT 

XCBPNT 

XCeCRLF 
XCBINSU 
C8HANG 

"LPT ERROR" 



/GET CHAR 

/C9PBNI IT 

/CHECK KEYBOARD IF HUNG 

/CIEAR IMF FLAG 

/CLEAR THE AC 

/EXIT 



/SET CONSTANT liffl 

/PNTBUF IS NOli A COUNTER 

/SKIP ON PRINTER DONE 

/NOT DONE YET 

/SAW FLAG DONE 

/FIRST COUNTER FAST ONE 

/CHECK IF FLAG SET YET 

/MADE 4096 COUNTS ON FAST COUNTER 

/KEEP IT UP FOR 5 SEC 

/SET THE RETURN ADDRESS IN CONTROL 

/SAVE IT IN HANG 

/ALLOW PRINTING ON TTY 

/LPT ERROR 

/PRINT WAITING 

/CONTINUE TO SAVE ADDRESS 

/COUNTER FOR TIMER 
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916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 



7-HAR-77 

/•(•••••a 



1200 
1201 



1207 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1230 
1231 
1232 



0000 
7200 



1202 1022 

1203 0377 

1204 7650 

1205 2200 

1206 5600 



0000 

6002 

3345 

6004 

3347 

7501 

3346 

7340 

1207 

3344 

6201 

7340 

1776 

3316 

6211 

4200 

7410 

5270 

4775' 

4774' 



1233 8373 



/THIS ROUTINE WILL CHECK LOCATION 22 THE HARD WARE CONFIG WORD, 
/TO SEE IF THE CONSOLE BIT 3 )400) IS SET IF SET THEN RETURN 
/TO CALL PLUS TWO FO A ACTIVE CONSOLR PACKAGE AC«0 
/IF NOT SET THEN TO CALL PLUS ONE FOR A DEACIIVE CONSOLE PACKAGE. 



CHKCLA. 



CLA 

TAD 22 

AND (40e 

SNA CLA 

ISZ CHKCLA 

JMP I CHKCLA 



/GET THE COIENIA OF LOCATION 22 

/MASK FOR BIT 3 [400 

/ 

/ACTIVE CONSOLE PACKAGE RETURN 

/CALL PLUS ONE (l) FOR ACTIVE 

/DEACTIVE CONSOLE PACKAGE RFIUBN 

/CALL PLUS TWO (2) 



/CBERR 

/THIS ROUTINE WILL DETERMINE WHAT TO DO WHEN A CBERR IS ENCOUNTERED 

/WILL CHECK IF CLASSIC SYSTEM, WILL CHECK cSSWIT REGISTERS, 

/ CBERR» JMS XC8ERR 

/EX, JMS XC8ERP /GO TO CBERR CALL IF NOT CONSOL 

/ /RETURN IS CALL PLUS ONE AC •0000 

/CALLS USED ARE -CHKCLA-XCBCRLF-XCBSW-XCBINOU-XCBPNT-XCBOCTA- 



XC8ERR, 

lOF 
DCA 
GTF 
DCA 
MQA 
DCA 
CLA 
IAD 
DCA 
CDF 
CLA 
TAD 
DCA 
CDF 
JMS 
SKP 
JMP 
JMS 
JMS 

SETUPl, AND 



ACSAVE 

FLSAVr 

MOSAVE 
CLL CMA 

XCBERR 
PCSAVE 

CLL CMA 

I (CLASIK) 

REALPC 

10 

CHKCLA 

NTCLAS 

CBOET 

XC8SW 



1234 
1235 
1236 



7640 
5262 
477J' 



SZA CLA 

JMP CBDOle 

JMS XC8CRLF 



/SAVE AC 

/SAVE THE FLAGS 

/SAVE THE MO 

/SUBTRACT A 1 FOR TRUE LOCATION 

/GET RETIUrN LOCATION 

/SAVE ADD OF C8ERR CALL 



/SAVE REAL PC, 

/CHECK LOC,22 BIT 3 CONSOL BIT 

/ACTIVE CONSOLE PACKAGE 

/NOT CLASSIC SYSTEM 

/GET ALL REGISTERS, 

/CHECK SWITCH REG FOR BIT THAT INDICATES 

/NO ERROR MESSAGE 

/MASK FOR BIT FOR NO ERROR PRINTING 

/IF THIS ERROR MESSAGE IS TO ALWAYS 

/BE PRINTED LEAVE AND VALUE AT eeKD 

/SKIP IF BIT IS PRINT ERROR MESSAGt 

/DO NOT PRINT 
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971 
973 
973 
974 
97S 
976 
977 
978 
979 
98e 
911 
9«] 
983 
984 
989 
986 
987 
988 
989 
990 
991 
993 
993 
994 
999 
996 
997 
998 
999 

leee 
teei 

t««3 

l«e3 

1804 
1(09 
1006 
1007 
1008 
1009 
1010 
1011 
1013 
1011 
1014 
1019 
1016 
1017 
1018 
1019 
1030 
1031 
1033 
1033 
1034 



1337 
1340 
1341 
1343 
1343 
1344 
1349 
1346 
1347 
1390 
1391 
1393 
1393 
1394 
1399 
1396 
1397 
1360 
1361 
1363 
1363 
1364 
1369 
1366 
1367 
1370 
1371 

1372 
1373 
1374 
137S 
1376 
J377 
1100 
1301 

1103 
1103 
1114 
11(5 

1106 

11(7 
Hit 

1311 
1312 
1313 
1314 

1119 
1116 

1317 

1330 
1331 



4771' 

1330 

4771* 

1330 

1316 

4770* 

4771' 

1333 

1349 

4770* 

4771' 

1336 

1346 

4770' 

4771' 

1341 

1347 

4770' 

4772' 

4779' 

4774' 

7610 

9300 

4767' 

5300 

4779' 

4774' 

7610 

9607 

1366 

3744 

4779" 

5744 

4779' 

9607 

7403 
7000 
3317 
6301 
1030 
3769 
1776 
3319 
1317 
6303 
9715 

0000 
•000 

0000 

0410 
3213 



JMS 

EPPMES 

JMS 

MESPC 

I»D 

JMS 

JMS 

MESAC 

I«D 

JMS 

JMS 

MESMQ 

TAD 

JMS 

JMS 

MESFL 

IAD 

JMS 

JMS 
C8DO10, JMS 

JMS 

SKP CLA 

JMP 

JMS 

JMP 
NTCLAS, JMS 

JMS 



SKP CLA 
JMP I 
TAD 
DCA I 
JMS 
JMP I 
JMS 
JMP I 



C8BY3, 



ROUINS, HLT 
NOP 
DCA 
CDF 
TAD 
DCA I 
TAD I 
DCA 
TAD 

cir 

JMP I 
/ 

CLRTRN. 

REALPCt 

NYACi 
/ 

ERRMC8, TEXT 



XC8PNT 

XCepNT 

REALPC 

XC80CTA 

XC8PNT 

ACSAVE 

XC80CTA 

XC8PNT 

HOSAVE 

XC80CTA 

XC8PNT 

FLSAVE 

XCeoCTA 

XC8CRIF 

CeCET 

XC8SW 

C8BV2 

xceiNo 

C8BY3 

C8CET 
XC8SW 



XC8ERR 

(7403 

PCSAVE 

C8GET 

PCSAVE 

C86ET 

XC8ERR 



SEO 0040 



MYAC 



SHR 

(SMR) 

(ClASIK) 

CLRTRN 

HYAC 



CLRTRN 



/PRINT THE ERROR MESSAGE 
/PRINT THE PC STSTEMENI 
/CONVERT 4 DIGIT PC TO ASCII 
/PRINT THE AC MESS 



/GET ALL REGISTERS. 

/CHECK SWITCH REGISTER 

/SKIP IF BIT B SET 

/LEAVE 

/GO TO THE INQUIRE ROUTINE 

/LEAVE 

/SET ALL REGISTERS, 

/CHECK PSEUDO SWITCH REGISTER 

/CHECK THE C8SWIT REGISTER 

/SKIP IF HALT 

/NO HALT CONTINUE 

/CODE FOR HLT 

/PUT IT IN CALL LOC, 

/EXIT TO CALL AND HALT 
/GET THE REGISTERS 



/PUT INSTRUCTION TO EXECUTE HEHEIlll 
/SAVE AC. 



/HOVE SWITCHES DOWN. 



/RETURN TO FIELD 0. 



'DHRKAE FAILED " 
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1037 



1039 
1030 
1031 
1033 
1033 
1034 
1035 
IC36 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 



1133 
1333 
1134 
1139 
1136 
1137 

1110 
nil 

1113 
till 
1314 
1119 
1316 
1117 
1140 
1141 
1342 
1343 
1344 
1349 
1346 
1347 

1369 

1366 
1367 
1370 
1371 
1373 
1373 
1374 
1179 
1376 
1377 



0109 
4040 
■601 
1114 
0904 
4000 
4040 
3003 
7300 
4040 
0103 
7300 
4040 
1931 
7300 
4040 
0614 
7300 
7777 
7777 
7777 
7777 

0020 
740? 
0635 
1000 
0303 
1033 
0000 
0363 
0634 
9733 
0400 
0000 



MESPC, TEXT 



MESAC, TEXT 



MESMO, 



MESFL, TEXT 



PCSAVE, 7777 

ACSAVE, 7777 

MOSAVE, 7777 

FLSAVE, 7777 
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PCl" 



SEO 0041 



ACl" 



MOi" 



Fll" 
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Bite ietwee »»eif9eei 



9i»e 
ejee 



tliuui nzfieeee eeeeefiee e^ueeeKci eeeeeeee 
eeeeesteti oeei^eieiee eeeee^M 



0400 
0500 



0600 
070* 



1000 
1100 



1300 
1>00 



mill 
nun 



linn 
linn 



linn 
nun 



nun 
nun 



iniii 
nun 



uini 

lUlll 



null 
nun 



null 
niui 



null 
nun 



nun 
nun 



iinnn 

10000(101 



uinni 
unni" 



iiunn 

uniin 



nunn 

11100000 



in 
in 



111 

in 



in 

lU 



in 
001 



iinnn iiin 



1400 

1500 



1600 
1700 



2000 
2100 



2200 
2900 



2400 
2500 



2600 
2700 



30SS 

)i0e 



3200 
use 



1400 
)500 



9600 

1700 



4000 
4100 



4200 
4)00 



4400 
4500 



4600 
4700 



5000 
5100 



5200 

5900 



5400 
5500 



S600 
5700 



6000 
6100 



6200 
6900 



6400 
6500 



6600 
6700 



7000 
7100 



7200 
7900 



7400 
7500 
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7600 
7700 
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te49 
1046 
lf«7 
le4« 
1049 

i»se 

IRSt 

ies2 
ies3 

I0S4 
1055 

1856 
1057 

i0se 

1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1065 
1069 
1070 
1071 
1072 
1073 
1074 



1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1410 
1411 
1412 



6031 
6142 
6115 
6(04 
6070 
6126 
6151 
6726 
5716 
7014 
7126 

6741 
674? 
6743 
6744 
6745 
6746 
6747 

4405 
4424 
4425 
4423 
4404 
4406 



/ALL KNOWN HljTS 

/ 

/ 

ERHLTl 

ERHIT2 

ERHLT3 

ERHLT4 

EBHLI5 

ERHLT6 

EBHLI7 

ERHLT9 

ENDHLT 

STPHLT 

CHNHLT 

/ 

0SKP«6741 

DCLR«6742 

OLAe>6743 

Dl.C««6744 

DRST«6745 

Dt.DCx6746 

DMANI6747 

/ 

SET'JMS I 

IICKiJMS I 

AERROiJMS I 

APieA.JMS I 

LA8«JMS I 

CLASIOJHS I 



XSET 

XTICK 

XAEBRb 

XAPTSl 

XLAS 

XCLAS 



/UNDEFINED INTERRUPT 
/SKIP TRAP FOB DCIB 
/SKIP TRAP FOR DUG 
/SKIP TRAP FOB DLCA 
/SKIP TRAP FOP DPST 
/SKIP TRAP FOR DIDC 
/SKIP TRAP FOR OMAN 
/RECOVERABLE ERROR HALT 
/END OF TEST HALT 
/HALT FROM SWR4*I 
/lOT CHANOE HALT 

/SKIP ON TRANSFER DONE OB ERROR 

/CLEAR DISK CONTROL LOGIC 

/LOAD ADDRESS AND GO 

/LOAD CURRENT ADDRESS 

/READ STATUS REGISTER 

/LOAD COMMAND REGISTER 

/LOAD MAINTENANCE 
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1075 

1076 

1077 

1071 

1079 

1000 

1081 

10*2 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

lUS 

1116 

1117 

1119 

1119 

1120 

1121 

1122 

1123 

1124 

112S 

1136 

1127 

1138 

1129 



0001 
0002 
0003 

0004 
0005 
0006 



5426 
5430 
4444 
4445 
4435 
4436 
4437 
4440 
4441 
4442 
4443 
4446 
4427 
4452 
4447 
4490 
4451 
4453 
4454 
4455 
4456 
4457 
4460 
4461 
4434 
4463 



0305 

5001 
0M3 
0003 

5764 
7040 
5733 



0810 



0010 0000 
0820 



fieiti 
0031 
0022 

0023 
0024 
0025 
0036 
0027 
0030 



0000 
4900 
0000 

7300 
7320 
7341 
7101 
7055 
5733 



lOICHN.JHP 1 
MANUALsJMP I 
ENMANliJMS I 
ENMAN2'JMS I 
NERRORsJMS I 
ERBOR>JMS I 
IONWAT«JMS I 
ACCMPl.JMS 1 
ACCMP2«JM5 I 
RDSTAT«J1»S I 
RDCMD>JHS I 
RDADD«JMs I 
LDBUr>JMs I 
LDADDaJMS I 
DSK5KP>JMS I 
LDCMDaJMs I 
LDCUB>JMS I 
CLBALLiJMS I 
BDCBC»JMS I 
LDMANsJMS I 
BOBUr«J>«S I 
PRNTER.JMS 1 
OCTEL»JMS I 
TWOCT»JMS I 
TYPE-JMS I 
CRLFsJMS I 



385 

5001 

0002 

0003 
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XCHANG 

HANTST 

XMAINl 

XMAIN7 

XNERBO 

XERRO 

XIONWT 

XCOMPl 

XCOMPJ 

XRDST 

XRDC"< 

XBDAD 

XUPPEb 

XLDAD 

XSDKP 

XLDCM 

XLDCA 

XCLDB 

XRDCB 

XLDHN 

XBDBF 

XPRN 

XFROCT 

XTOCT 

XPBINt 

XCRLF 



MYLAS 
SFTIIp 
CLASIK 



XLAS. 

XSET, 

XCLAS, 

SAVEND, 

/ 

• 10 

/ 

AUTO10, 



♦ 20 

/ 

5WB, 

OPl, 

OPS, 

I 

XAPTSA, APTS 

XTICK, KTICK 

XAERBO,WAFBBO 

XCHANG, CHANG 

XUPPEB, UPPER 

MANTST, MtNUL 



4880 




/REV E 





PAL10 


Vt42A 


7-HAB-77 




0031 


6"lt 


INTRO, 


INI«DD 




BB32 


5670 


XEND, 


EUnTST 




8033 


B210 


THSFLD, 


PRSFLO 




0034 


6463 


XPPINT, 


PRINT 




0035 


7000 


XNERRO, 


NFRRO 




0036 


6600 


XERBO, 


ERRO 




0037 


6000 


XIONWT, 


lONWT 




0040 


6033 


XCOMPl. 


COHPl 




0041 


6044 


XC0MP2, 


C0MP2 




0042 


6063 


XRDST, 


RD5T 




0043 


6240 


XRDCM, 


BDCM 




0044 


6256 


XMAINl, 


MAINl 




004S 


6760 


XM»IN2, 


MA1N2 




0046 


6200 


XRDAD, 


RDAD 




0047 


6130 


XSDKP, 


5DKP 




0050 


6117 


XLDCM, 


LDCM 




0051 


6075 


XLDCA, 


LDCA 




0052 


6106 


XLDAD, 


LOAD 




0053 


6135 


XCLDR, 


CLDR 




0054 


6263 


XRDCR, 


BDCR 




0055 


6144 


XLDHN, 


LDHN 




0056 


6226 


XRDBr, 


BDBF 




0057 


6423 


XPRN, 


PRN 




0060 


6400 


XFROCT, 


FROCT 




0061 


6314 


XTOCT, 


TOCT 




0062 


6331 


XCRir, 


UPONE 




0063 


0260 


K0260. 


0260 




0064 


0000 


K0000, 


8000 




0065 


0001 


Ka00i, 


0001 




0066 


0002 


K0002, 


8002 




0067 


0003 


K0003, 


8003 




0070 


0004 


K0004, 


8004 




0071 


0006 


K0006, 


0006 




0072 


0007 


K0007, 


0007 




0073 


0010 


Ke010, 


0810 




0074 


0020 


K0020, 


0020 




0075 


0037 


K0037, 


0037 




0076 


0040 


K0040, 


0840 




0077 


0100 


K0100, 


0100 




0100 


0200 


K0200. 


0200 


1178 


0101 


0207 


K0207, 


8207 


U7t 


0102 


0400 


K0400, 


0400 




0103 


1000 


K1000, 


Sana 




0104 


2000 


K200e, 


2(lilfl 




0105 


3777 


K3777, 


J7' ■ 


1 17a 


0106 


4000 


K4000, 


401!.' 




0107 


7000 


K7000, 


700B 


ii n 


0110 


7776 


K7776, 


7776 


1179 


0111 


7775 


K7775, 


777S 


1179 


0U2 


7700 


K7700, 


7700 


lt»« 


0113 


7740 


K7740, 


7740 


iiai 


0114 


0070 


K0070, 


0070 


1182 


0115 


0077 


K0077, 


0077 


1183 


0116 


0377 


K0377, 


0377 


1184 


0117 


0177 


K0177, 


0177 
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SEQ 0046 





PAL 10 


V142A 


7-MAR.77 1 


1185 


0120 


2525 


K2525, 


2525 


1186 


0121 


5252 


K5252, 


5252 


1187 


0122 


3737 


K3737. 


3737 


use 


8123 


7717 


K7717, 


7717 


1189 


0124 


4100 


K4iee, 


4100 


1190 


0125 


7600 


K7600, 


7600 


1191 


0126 


5000 


K5000, 


5000 


1192 


0127 


5777 


K5777, 


5777 


1193 


0130 


7774 


K7774, 


7774 


1194 


0131 


7771 


K7771, 


7771 


1195 


0132 


7777 


K7777, 


7777 


1196 






/ 




1197 






DECIMAL 




1198 






/ 




1199 


0133 


7774 


M4, 


-4 


1200 


0134 


7773 


M5, 


-5 


1201 


0135 


7771 


M7, 


•7 


1202 


0136 


7764 


M12, 


-12 


1203 


0137 


7760 


M16, 


-16 


1204 


0140 


7728 


M4e, 


-48 


1205 


0141 


7600 


M128, 


-129 


1206 


0142 


7501 


MlSl, 


-191 


1207 


0143 


7401 


M255, 


-255 


1209 


0144 


7324 


M300, 


-300 


1209 






/ 




1210 






OCTAL 




1211 






/ 




1212 


8145 


0817 


K0B17, 


0017 


1213 


0146 


0215 


K0215, 


0215 


1214 


0147 


0212 


K0212, 


0212 


1215 


0150 


6201 


KCDF, 


CDF 


1216 


0151 


6244 


KRMF, 


RHF 


1217 


0152 


3741 


MTS95, 


-TSTB5 -1 


1218 


0153 


0000 


REGl. 





1219 


0154 


0000 


RES2, 





1220 


0155 


0000 


SBCNT1, 





1221 


0156 


0000 


TCNTRl, 





1222 


0157 


0000 


TCNIR2, 





1223 


0160 


0000 


TCNTR3. 





1224 


0161 


0000 


TCNTR4, 





1225 






/ 




1226 


8162 


0000 


GDREGl, 





1727 


8163 


0008 


G0REG2( 





1221 


0164 


8008 


CRREGl, 





1229 


8165 


0008 


CRREG2, 





1230 


0)66 


»000 


STREO, 





1231 


0167 


0000 


DBREG, 





1232 


0170 


0800 


CHREG, 





1233 


0171 


B000 


DAREG, 





1234 


0172 


0800 


ADREC, 





1235 


0173 


0880 


DTREG, 





1236 


0174 


»«00 


ACREC, 


8 


1237 


0175 


0000 


HOMEMA, 





1238 


0176 


0000 


FIDMAX, 


8 


1239 


0177 


2200 


STCON, 


2200 



13155 PAGE 3-2 



i:4e / sEo 0e4s 

1341 ii»e •sen 

1243 / 

>'*' /SETUP POINTERS FOB AMOUNT OF EXTENDED 

;»♦< /BANKS OF MENORV, INTERRUPT SERVICE, CURRENT 

};" /FIEID , »ND TESTS FOP CLASSIC PACKAGF OR API SYSYIEH 

'"* /IF CONSOLE IS ACTIVE API FUNIIONS OR NOP. 

1247 ' 

1»4« / 

\lil III", VAl ^'"'' •'"^ •*' '""N DISKLESS. 

«? ???i l*lt ««•"'»'' /TO MANUAL ScSpE TEST 

Ml lltl Itlt B?r "° '" "•""^ """"E 

125J 0204 }I7^ OCA HOHEMA 

1754 8205 1 175 TAD HOHEMA 

\lll tilt U?2 '"'" *-'^°^ '"""E HOMEDF 

1256 0207 3310 OCA PRSFLD 

1357 0210 7402 PRSFLD, HLI /make DF.rr 

nil ll\l *,',ll ^" /seiSp fie[d 

nil llil ill« i;? .,.'"'""' /OET FIRST PASS pointer 

262 SI 5 ?5« i^^n , iV 'NO' """ BE A RESTART 

\IA tl\l \.ll lt° ' """ '='='■ !■»" LOCATION 

26^ S2 ? nil ?»;.. "'"^'"' '""^ " '•'"' » "^STORE 

1366 SIj? ii?i r^iSJ? '=""" "" CONSOLE CLASSIC 

1266 0221 4431 C8SHIT /CHECK FOR SUITru <Da 

1267 0222 7000 NOP 'CHtcn fOR SWITCH SR«. 

1368 0223 4404 LAS 

1269 0234 0073 A»D KB007 /MASK 9-11 

1270 0225 7040 CMA ' 

1272 nil till ?5J J,""*" ""'^ *'""""' °^ EXTENDED MEMORY 

1273 0230 0102 AND 



1274 0231 7640 SEA CLA /qn CLASSIP 

1275 0232 6007 ^ „b7 ms^miS'cLEAR ALL FLAGS. 

|"7 /VERIFY THAT THE DISK MOTOR IS OFF. THE 

llll /SIAIUS REGISTER SHOULD ONLY CONTAIN NOT READY TO 
I"' /SEEK, READ, OR WRITE AND NOT DISK FILE BEADY 

\ll\ /INITIALIIE SHOULD HAVE CLEARED ALL OTHER BIlJ 

1213 

1283 0233 3153 DCA BEGl 

\lVs lilt Wll nJ? ^11°^ '=" EXPECTED STATUS 

1706 GDRE02 /SETUP TEST HANDLEB 

\"l llll VAl Irrlll '""" """» BEGISTER 

j'? SM' JJ" "RROR /AC O.K. 4096 LOOPS 

291 0242 4436 ERROR /„ror, -INITIALIZE" CLEAR STATUS 

1393 0311 .t^i. ...» /REGISTER FAILED. 

2" ^2^4 llll llll '«"" '■"OP ""i" 

1294 0244 5000 5000 /iexi POINTER 
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'"* / SES 0049 

}''S /VERIFY THAT SKIP CONDITIONS WERE CLEARED 

Wll 'Bf "INITIALIZE" ON START OF TEST. 

Si ilVi Ml epSor '""" °-'<- "" ''°°" 

1302 /ERROR, "INITIALIZE" CLEAR 

1303 02^0 a31< ,..,. '"" CONDITIONS 
"J Sm? S00I llli '»"" ■'"O" """"TER 

1305 / ***' 'TEXT POINIEB 

}??' /VERIFY THAT INTERRUPT REQUESTS WERE 

llll /CLEARED BY "INITIALIZE- AT START OF TEST 

311 0254 4436 ERROR /error, "INITIALIZE" CLEAR 

1313 031!l «3»5 »c,.. ""''• CONDITION 

1) 4 02II Sill llll '"""E I-OOP POINTER 

1314 0256 0007 ^ 0007 /TEXT POINTER 

J'J! /VERIFY THAT COMMAND REGISTER WAS CLEARED 

\l\l ^Si,.;'!!i"*i''J^" " "APT OF TEST. READ COMMAND 

\l\l /REGISTER WITH "OMAN" (MAINTENANCE lOT) 

llll llll lul ISI3 SSJmd """' '*""" "'"'*''^ REGISTER 

1322 0261 76se ^Sr^, . /READ COMMAND REGISTER 

ill 0363 I!?? t^Lit^ '« S"0ULD be 

1334 llll All ll'*r.° '»= °-<^- ♦"" I'OOPS 

324 0263 4436 ERROp /E^^op, -INITIALIZE- CLEAR 

1326 0264 0260 T.T, /COMMAND REGISTER 

1328 / 'T"T POINTER 

!"' /VERIFY THAT ALL DRIVES ON CONTROL ARE OFF 

Jj" ^THE STATUS SHOULD BE 2200 WHEN DRIVES ABE SELECTED. 



33 Sl6? I ""' "? """ /EXPECTED STATUS 

S350 7 ?LA CLL ???'" '"""^ """"^ REGISTER 

1335 0I7I 4453 ClSalL /enable CLEAR CONTROL 

nJi 01..J ;;.; CLRAIL /DCLR -CLB ALL" 

nil llll Ml Ji^Mn ''^'=' "=" « VALUE 

1318 S«J VA '■"'^ " '"*D COMMAND 

339 lilt VAl Irrl", '""D STATES 

340 SI?J 1I« '"^' 'CHECK RESULTS 

lui till V,\l J"^"" ">•"• «^" I-OOPS 

3« ^300 0266 IT." '"''°''' ""US 

II IIT, till J" 'SCOPF LOOP POINIEH 



1343 0301 5000 5000 

1344 



/TEXT POINTER 



\l*l /VERIFY THAT lOT "DSKP- DOES NOT AFFECT 

[|J° '*C REGISTER. TRY ALL COMBINATIONS IN AC. 

Iln llll [III ""' ^;? ?"' "=^' 'C VALUE 

1349 0303 3163 DCA GDREG3 /SETUP COMPARE REGISTER 



PALia VI42A 



1390 

1391 

1352 

1393 

1394 

1395 

1356 

1397 

1398 

1399 

1360 

1361 

1362 

1363 

1364 

1369 

1366 

1367 

1368 

1369 

1378 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1389 

1386 

1387 

1388 

1389 

1390 

1)91 

! s ■: . 

) 'r-. 

us 

13». 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 



0304 

0305 



1153 

4447 



0306 7000 

0307 4440 

0310 4435 

0311 4436 

0312 0302 

0313 4010 



0314 3163 

0315 1153 

0316 4491 

0317 4440 

0320 4435 

0321 4436 

0322 0315 

0323 4010 



0324 1153 

0325 4450 
0336 4440 
0327 4435 

0330 4436 

0331 0324 

0332 4010 



0333 7301 

0334 4493 

0335 1154 

0336 4492 

0337 4440 

0340 4439 

0341 4436 

0342 0333 

0343 4010 



0344 1153 

0345 4453 

0346 4440 

0347 4439 

0390 4436 

0391 0)44 

0392 4010 



DSKSKP 

NOP 

ACCMPI 

NgRBOR 

EFROP 

TST5 

4010 



SEQ 0090 



/ISSUE "DSKP" lOl 

/CHECK AC, COHPAPE TO GDREG2 
/AC O.K. 4096 LOOPS 
/ERROR, "DSKP" CHANGED AC, 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERiry THAT "DLCA" LOAD CURRENT ADDRESS 

/REGISTER CLEARS THE AC, TRY ALL COMBTNATIONS IN AC 

/ 



TST6, 



DCA 

TAD 

LDCUR 

ACCPl 

NERROR 

ERROR 

TST6 

4010 



gdreg; 

REG1 



/SETUP COMPARE REGISTER 
/GET AC VALUE 

/LOAD CURRENT ADDRESS "DLCA" 
/CHECK AC. COMPARE TO GDREG2 
/AC O.K. 4tl96 LOOPS 
/ERROR, DLCA CLEAR AC 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VEBiri THAT "DLDC" LOAD COMMAND REGISTER 
/CLEARS THE AC, IRV ALL COMBINATIONS IN AC. 
/ 

T5T7, 



TAD 

LDCHD 

ACCMPl 

NERROR 

ERROR 

TST7 

4Bia 



/GET AC VALUE 

/"DLDC" LOAD COMMAND REGISTER 

/CHECK AC, COMPARE TO GDREG3 

/AC 0,K, 4096 LOOPS 

/ERROR, DLDC CLEAR AC 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VEPIFV THAT "DLAG" CLEARS THE AC REGISTER. 

/TRY ALL COMBINATIONS IN AC, 

/ 

CLA CLL lAC 



TST8, 



CLRALL 

TAD 

LDADD 

ACCMPl 

NERROR 

ERROR 

'3T8 



REG2 



/CLEAR CONTROL 
/GET DATA 

/LOAD DISK ADDRESS 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, DLAG, CLEAR AC 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/vERiry Ti 

/TRY ALL CD 
/ 



iOT "DCLR CLEARS THE AC. 
lelNATIONS IN AC 



TAD 

CLRALL 

ACCMPl 

NERROR 

ERROR 

IST9 

4010 



/DCLR "CLR ALL" 

/CHECK AC, COMPARE TO GDREG2 

/AC O.K. 4096 LOOPS 

/ERROR, DCLR CLEAR AC 

/SCOPE LOOP POINTER 

/TEXT POINTER 
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1409 






1406 






1407 






1408 






1409 






1410 


0)53 


7301 


1411 


0354 


4493 


1412 


0)59 


1193 


1413 


0396 


7110 


1414 


0397 


7630 


H19 


0360 


7240 


1416 


0361 


3163 


1417 


0362 


1163 


1418 


0363 


7040 


1419 


0364 


4490 


1420 


0365 


1163 


1421 


0366 


4490 


1422 


0367 


4443 


1423 


0370 


4440 


1424 


0371 


4435 


1429 


0372 


4436 


1426 


0373 


0)93 


1427 


0374 


4301 


1428 






1429 






1430 






1431 






1432 






1433 


0)79 


7301 


1434 


0376 


4493 


1439 


0377 


119) 


1436 


0400 


7110 


1437 


0401 


7630 


1438 


0403 


1130 


1«39 


0403 


1120 


1440 


0404 


3163 


1441 


0409 


1163 


1443 


0406 


7040 


1443 


0407 


4450 


1444 


0410 


1163 


1445 


0411 


4450 


1446 


0412 


4443 


1447 


041) 


4440 


1448 


0414 


4435 


1449 


0419 


44)6 


i4je 


8416 


017S 


1491 


0417 


4301 


1452 






1453 






1454 






1459 






1496 






1497 


0420 


1154 


1498 


0421 


4490 


1499 


0422 


1153 



SEQ 0051 



/VERIFY THAT THE COMMAND REGISTER CAN BE LOADED 

/AND SHIFTED INTO THE LOWER DATA BUFFER WITH 

/THE MAINTENANCE IOT. USE DATA PATTERN 0000 + 7777. 

/ 



TST10, 



CLA CLL lAC 

CLRALL 

TAD REGl 

CLL RAR 

SZL CLA 

CLA CMA 

DCA GDREG3 

TAD GDREG2 

CMA 

LDCMD 

TAD GDREG2 

LDCMD 

BOCMD 

ACCMPl 

NERROR 

ERROR 

TST10 

4201 



/DCLR "CLR ALL" 



/DATA 7777 IF LINK IS SET 
/SETUP COMPARE REGISTER 



/SET COMMAND TO OPOSIIE 

/SET COMMAND TO VALUE EXPECTED 
/READ COMMAND REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, COMMAND REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY THAT THE COMMAND REGISTER CAN BE LOADED 

/AND SHIFTED INTO THE LOWER DATA BUFFER WITH 

/THE MAINTENANCE IOT. USE DATA PATTERN 2525 ♦ 5252 

/ 

TSUI, 

/DCLR "CLR ALL" 



/DATA 5252 IF LINK Is SET 



CLA CLL 


I AC 


CLRALL 




TAD 


REGl 


CLL RAR 




S!L CLA 




IAD 


K2525 


TAD 


K2525 


DCA 


GDREG2 


TAD 


GDREG2 


CMA 




LDCMD 




TAD 


GDREG3 


LDCMD 




RDCMD 




ACCMPl 




NERROR 




ERROR 




ISIU 




4201 





/SETUP COMPARE REGISTER 



/SET COMMAND TO OPOSITE 

/SET COMMAND TO VALUE EXPECTED 
/READ COMMAND REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, COMMAND REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY THAT THE COMMAND REGISTER 

/BE LOADED AND THEN SHIFTED INTO THE LOWER 

/DATA BUFFER. TRY ALL COMBINATIONS. 



TST12, 



TAD 

LDCMD 

TAD 



/GET AC VALUE 

/LOAD COMMAND PEGISTEP 
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1460 0423 1163 DCA 0DBEG2 /SETUP COMPARE PEGISTEB *^° ^*" 

1461 0424 1151 TAD BECl 

1462 0425 4450 LOCD /LOAD COMMAND REGISTER 

1463 0426 4*43 RDC«D /READ COMMAND REGISTER 

1464 0427 4440 ACCMpl /CHECK AC, COMPARE TO GDPEG2 

1465 0430 4435 NERROR /AC O.K. 4096 LOOPS 

1466 0431 44J6 ERROR /ERROR, LOAD OR READ 
II*! „,,, ... /COMMAND REGISTER 
\*il l*ll »I" TST12 /SCOPE LOOP POINTER 

1469 0433 4S01 4201 /TEXT POINTER 

1470 / 

J4T1 /VEBlry THAT DCLB DOES "OT CLEAR COMMAND 

i'ti /REGISTER HHEN AC10S0 AND A11«0 

1475 / 

1474 0414 1153 I8T13, TAD REGl 

1475 0435 4450 LDCMD /LOAD COMMAND REGISTER 

1476 0436 1154 l«D REG2 

1477 0417 1161 DCA GDREG2 /SETUP COMPARE REGISTER 

1478 0440 1154 TAD REG2 

W.l VAi tl!! ''"'^"^ '■'O*" COMMAND REGISTER 

1480 0442 4451 CLRALL /dcLR "CLR All- 

lilk t*A] *.*Ai ''"'^"^ '""■> COMMAND REGISTER 

,Ai 111! *Ail S^";"" '"C O.K, 4096 LOOPS 



14*4 0446 4436 ERROR 

1485 



/ERROR, DCIR CLEAR COMMAND 
/REGISTER WHEN AC10' 
/SCOPE LOOP POINTER 



i4R6 04*7 Klld ,.,., /REGISTER WHEN AC10>0 t ACll. 

1 1!; !;. 'V* ism /scope loop POINxeR 

1487 0450 4201 4201 

1488 / 
>*»» /VERIFY THAT DClR DOES CLEAR COMMAND 
i*9» /REGISTER WHEN AC10>0 AND ACll'l 
1491 / 

\\l\ VtW VA\ T«T,A SSI SSS"' '*""" COMPARE REGISTER 

I49J 0452 1153 TST14, TAD RECl 

\*.li VAl JJ!? ^^^'"' ''■0'"' COMMAND REGISTER 

uIt till All SnJJn'' '"'"'" "='''' *■'•'" 

498 IVn VAl S2S ?I. /READ COMMAND REGISTER 

All lAl AA '"* C''* /CHECK AC, SHOULD EQUAL 

1500 0461 4416 ERROR /ERROR, DCLR CIEAR COMMAND 

1502 046} >4<9 T.T.< /REGISTER WHEN AC10.0+AC11.1 

MS VaI] ««? Ill A '^"'^ ^°°' POINTER 

150! 0463 4201 4201 /TEXT POINTER 

1504 / 

}'!' /VERln THAT DLAG DOES LOAD THE SURFACE AND SECTOR 

•S»6 /REGISTER. USE DATA PATTERN 00 ♦ 37. 

1507 / 

nil lilt ]ll\ ""'• ^^Jall'' "' /ENABLE CLEAR CONTROL 

1510 0466 1116 TAD M12 

1511 0467 1156 DCA ICNTRl 

1512 0470 1151 IAD REGl 

1513 0471 7110 CLL RAR 

1514 0472 7610 511 CLA 



/CLEAR CONTROL 

/SETUP 12 BIT SHIFT COUNTER 



/DATA 00 « 37T? 
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1515 0473 7340 CLA CLL CMA /37| SEO 0053 

I'It' IVA n" ^ir DAREG /LOAD DISK ADDRESS .DLAG. 

[Ill S«? fill JUS rf" '"*" EXPECTED VALUE 

52? Itll Ml SSl.u, '"""^" "»""" """""^ "MISTER 

521 nil ,Al l.^*^^ ,-, ^^•'"'' MAINTENANCE 

"2 III2 Ml ?;Sa» '^'""' '"*"'= ■•"" ''<'•'" BUrFER 

523 0501 VAI T« ,,„ -"-O" '<»INTENANCE 

nil nil 5U2 III '^.r*" '""" " *""^ 

1525 0505 7100 CLA CLL ' 

1528 lltl VA, iS? « "■'*■' MAINTENANCE 

nil llA AA SSI S*"^" '"« "''"«: """o 

1S?» 0511 J171 TAD DABEG 

E sill Hli sir js«j!\5?i"£jsp. 

j,|J "" *'*' ^ «!»' /TEXT POINTER 

I'JS /VERIFY THAT DLAG LOADS THE SURFACE AND 

nil /SECTOR REGISTER. USE DATA PATTERN AIL 

«'18 /COMBINATIONS, 

1519 / 

I5J? 0I20 lll\ ""'■ rJ'I.?!''' '" '""" =«»" CONTROL 

I'U IIV, VM Jir'' M12 /CLEAR CONTROL 

\l\\ SH! ?1," ?;S ^EGr /8"UP 12 BIT SHIFT COUNTER 

nil llli IVA i.^A IS""" '•'»»'< EXPECTED VALUE 

I'J* nil \nl ?Jd* S?Sf" /"TUP COMPARE REGISTER 

nil mi iJ!i i:s:;s, '"" "« '"""s -dlag. 

1550 Hi? ffi« S^^*"' , /"=""" MAINTENANCE 

nil nil Ml lISan ""^ '•^""^ ^"'" ^°"" B""" 

l«5 «lii J7.I i'^S'" /load MAINTENANCE 

nil nil nil Itl '=;"' /COUNT ,2 SHIFTS 

1554 0535 7300 CLA CLL ' 

nil nil nil ,^IS.. '""'" '^""'■'^ ""P LOWER BUFFER 

557 SmI ?J5? nSr" n, '"-O*" "'INTFNANCE 

sis ni? ,,A "" "*"" '«»"«: "i-fK "UNO 

1558 0541 1171 T»D DAREG 

nil IVA l*Al '"""' 'CHECK RESULTS 

nil lAl All S"^"" '»•'<• ♦^'S LOOPS 

U« llA All lllA '^'"""'' ^■"'"CE AND SECTOR SHIFT 

56! lAl Ail Ifli" 'SCOPE LOOP POINTER 

1564 *'*' "'f^'"' POINTER 

I?" /VERIFY THAT THE DISK ADDRESS REGISTER CAN BE LOADED 

}"' /'"^ SHIFTED TO LOHER DATA BUFFER hllH THE MAINTENANCE 

"" /lOT, USE DATA PATTERN 0000 t 7777 

I'?? /SHIFT THF SURFACE AND SECTOR FROM THF SURFACE AND SECTOR 

"*' /REGISTER. SHIFT THE LOWER CYLINDER BITS FpOH THE CRC REGISTFH 
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l!7« 
1571 
1S7] 
1573 
1574 
1575 
1576 
1577 
1678 
1579 
1580 
1581 

tse: 

1583 
1584 
I58S 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1603 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
161! 
1 '■ J .. 
16!.! 
161 >. 
16S5 
16! 1. 
16J7 
1618 
1619 
1620 
16?1 
1622 
1623 
1624 



SEQ 0054 



0547 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0570 



0571 
0572 
0573 
0574 
0575 
0576 
0577 



0601 
0602 
0603 
0604 
0605 
0606 
0607 
0610 
0611 
0612 
0613 



7301 
4453 
1153 
7110 
7630 
7240 
3163 
1163 
7040 
4453 
1163 
4453 
4446 
4440 
4435 
4436 
0547 
4102 



7301 
4453 
1153 
7110 
7630 
1120 
1120 
3163 
1163 
7040 
4452 
1163 
4452 
4446 
4440 
4415 
4436 
0571 
4102 



/ 

I5I17, 



CLA CIL lAC 

TAD REGl 

CliL RAB 

SZL CLA 

CI>A CMA 

DCA G0REG2 

IAD GDREG2 

CNA 

LDADD 

TAD GDREG2 

LDADD 

RDAOD 

ACCHPl 

NERROP 

ERROR 

TSTIT 

4102 



/OCLR "CLP ALL" 



/USE DATA 7777 IF LINK IS SET 



/SETUP COMPARE REGISTER 



/SET DISK ADDRESS TO OPOSITF 

/SET DISK ADDRESS TO EXPECTED 

/READ DISK ADDRESS 

/CHECK RESULTS 

/O.K. 4096 LOOPS 

/ERPORr DISK ADDRESS REGISTER 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT THE DISK ADDRESS REGISTER CAN BE LOADED 

/AND SHIFTED TO LONER DATA BUFFER WITH THE MAINTENANCE 

/lOT. USE DATA PATTERN 2525 ♦ 5252. 

/SHIFT THE SURFACE AND SECTOR FROM THE SURFACE AND SECTOR 

/REGISTER. SHIFT THE LOWER CYLINDER BITS FROM THE CRC REGISTER. 

/ 

TST18, 

/DCLR "CLP ALL" 



/USE DATA 5252 IF LINK Is SET 



CLA CLL 


I AC 


CLRALL 




TAD 


REGl 


CLL RAR 




SZL CLA 




TAD 


K2525 


TAD 


K2525 


DCA 


GDREG2 


TAD 


GDRE02 


C«A 




LDADD 




TAD GDREG2 


LDADD 




FDADD 




ACCMPl 




NEFROR 




'"(-OB 





41 



/SETUP COMPARE REGISTER 



/SET DISK ADDRESS TO OPOSITE 

/SET DISK ADDRESS TO EXPECTED 

/READ DISK ADDRESS 

/CHECK RESULTS 

/O.K. 4096 LOOPS 

/ERROR, DISK ADDRESS REGISTER 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT THE DISK ADDRESS REGISTER 

/CAN BE LOADED AND SHIFTED INTO THE LOWER 

/DATA BUFFER. TRY ALL COMBINATIONS IN AC 

/SHIFT THE SURFACE AND SECTOR FROM THE SURFACE AND SECTOR 

/REGISTER. SHIFT THE LOWER CYLINDER BUS FROM THE CRC REGISTER, 



0614 1153 
1615 3163 
0616 1153 



TST19, 



TAD 


REGl 


DCA 


GDREG2 


TAD 


REGl 



/GET AC VALUE 

/SETUP COMPARE REGISTER 
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1625 
1636 
1637 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 



0617 4452 

0620 4446 

0621 4440 

0622 4435 

0623 4436 

0624 0614 

0625 4102 



0626 

0627 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 

0641 
0642 



0643 
0644 

0645 
0646 
0647 
0650 
0651 
0652 
0653 
0654 

0655 
0656 



0661 
0662 
0663 



1153 
3163 
1154 
4452 
1153 
4453 
4453 
4446 
4440 
4435 
4436 

0636 
4102 



1153 
3163 
1153 
4452 
7301 
4453 
4446 
4440 
4435 
4436 

0643 
4103 



7361 
4453 
1153 
7110 
7630 



LDADD 

RDADD 

ACCMpl 

NERROP 

ERROR 

TST19 
4103 



/LOAD DISK ADDRESS REGISTER 
/READ DISK ADDRESS REGISTER 
/CHECK AC, COMPARE TO GDREG3 
/AC O.K., LOOP 4096 TIMES 
/ERROR, LOAD OR READ DISK 
/ADDRESS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



SEQ 0055 



TAD 


REGl 


DCA 


GDREG3 


IAD 


REG3 


LDADD 




TAD 


REGl 


LDADD 




CLRALL 




RDADD 




ACCMpl 




NERROP 




ERROR 




TST30 




4103 





/VERIFY THAT DCLR DOES NOT AFFECT THE SURFACE 

/AND SECTOR WHEN AC10>0 * AC11«0 

/ 

TST20, TAD REGl /GET AC VALUE 

/SETUP COMPARE REGISTER 

/AC VALUE, COMPLIMENT OF REGl 

/LOAD DISK ADDRESS 

/LOAD DISK ADDRESS 

/DCLR "CLR ALL" 

/READ DISK ADDRESS 

/CHECK AC, COMPARE TO GDPEG2 

/AC O.K. LOOP 4096 TIMES 

/ERROR, LOAD OR READ DISK 

/ADDRESS OR DCLR CLEAR 

/SCOPE LOOP POINTER 

/TEXT POINTER 

/ 

/VERIFY THAT "DCLR" DOESN'T CLEAR SURFACE AND SECTOR 

/REGISTER WHEN A10ie ^ A11>1 

/ 

TST21, TAD REGl /GET AC VALUE 

/SETUP COMPARE REGISTER 

/LOAD DISK ADDRESS 

/ENABLE "CLR ALL" BIT 

/DCLR "CLR ALL" 

/READ DISK ADDRESS 

/CHECK RESULTS 

/AC O.K. LOOP 4096 

/ERROR, LOAD, READ, OR CLEAR 

/DISK ADDRESS 

/SCOPE LOOP POINTER 

/TEXT POINTER 

/ 

/VERIFY THAT THE CRC CAN BE LOADED BY "OLAG" 

/AND "DLDC". USE DATA PATTERN 0000 ♦ 7777. 

/THIS WILL VERIFY THAT THE CRC CAN BE LOADED 

/BY THE EXTENDED CYLINDER BIT IN THE CO"MAND REGISTER 

/BY THE "DLAG" lOT, 

/ 

IST22, CLA CLL lAC 

CLRALL /DCLR 

IAD REGl 

CLL R»R 

SZL CLA /USE DATA 7777 IK LINK IS SET 



TAD 


REGl 


DCA 


GDREG2 


TAD 


REGl 


LDADD 




CLA CLL 


lAC 


CLRALL 




PDABD 




ACCMPl 




NERPOR 




ERROR 




TSI21 




4102 
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1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1699 

1691 

1692 

1693 

1694 

I69S 

1696 

1697 

1698 

1699 

17«0 

1701 

1702 

1703 

1704 

170S 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1729 

1721 

1722 

1733 

1724 

1725 

1726 

1727 

1728 

1729 

17J0 

1731 

1732 

1733 

1734 



0664 
0665 
0666 
0667 
0670 
0671 
0672 
0675 
0674 
0675 
0676 
0677 
0700 
0701 
0702 



0703 
0704 
0705 
0706 
0707 
0710 
0711 
0713 
0713 
0714 
0715 
0716 
0717 
0720 
0721 
0722 
0723 
0734 
0725 
0726 
0727 



7240 
0113 
3163 
7004 
3162 
1163 
4450 
1169 
4452 
4454 
4441 
4435 
4436 
0657 
6004 



7301 
4453 
1151 
7110 
7630 
1120 
1120 
0113 
3163 
7004 
3162 
1162 
4450 
1163 
4452 
4454 
4441 
4435 
4436 
0703 
6004 



8730 1153 

0731 7106 

0732 7006 

0733 7004 

0734 0113 



CLA C"* 

»ND 

DC4 

RtL 

DC« 

TAD 

tncxD 

TAD 

LDADD 

ROCPC 

ACCNP2 

NEPROR 

ERROR 

T5T22 

6004 



SKO 0056 



K7740 
GDREC3 



OPREGl 
GDREGl 



GDREG? 



/SETUP COMPARE i 1 
/LINK FOR EXTENDED BIT 
/SETUO COMPARE REGISTER 
/GET DATA 
/LOAD CRC 

/LOAD CRC 
/READ CRC 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, CRC REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY THAT THE CRC CAN BE LOADED B» "DLAG" 

/AND "OLDC". USE DATA PATTERN 2535 ♦ 52S2. 

/THIS WILL VERIFY THAT THE CRC CAN BE LOADED 

/BY THE EXTENDED CYLINDER BIT IN THE COMMAND REGISTER 

/BY THE "DLAG" lOT. 

/ 

TSI23, 



CLA CLL lAC 

CLPALL 

TAD 

CLL RAR 

SZL CLA 

TAD 



PEGl 



TAD 

AND 

DCA 

PAL 

DCA 

TAD 

IDC"D 

TAD 

LDADD 

RDCRC 

ACCHP2 

NERROR 

ERROR 

TST23 

6004 



K3535 
K2535 
K774a 
GDREG3 

GDREGl 
GDREGl 

GDREG2 



/DCLR 



/USE DATA 5252 IF LINK Is SET 



/SETUP COMPARE • 1 
/LINK FOR EXTENDED BIT 
/SETUP COMRARF REGISTER 
/GET DATA 
/LOAD CRC 

/LOAD CRC 
/READ CRC 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, CRC REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY THAT THE CRC CAN BE LOADED BY "DLAC" 

/AND DLDC", USE DATA PATTERN ALL COMBINATIONS, 

/THIS WILL VERIFY THAT THE CRC CAN BE LOADED 

/BY THE EXTENDED CYLINDER BIT IN THE COMMAND REGISTER 

/BY THE "DLAG" lOT, 

/ 

TST24, TAD REGl /GET AC VALUE 

CLL RTL 

RTL 

RAL 

AND K7740 
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1735 

1736 

1737 

1738 

1739 

1740 

1741 

1743 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1763 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 



0735 
0736 
0737 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 

0750 
0751 



0752 
0753 

0754 
0755 
0756 
0757 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0770 
0771 
0772 

0773 
0774 

0775 
0776 



0777 
1000 
1001 
1002 
1003 
1004 
1005 
1006 



3163 
7004 
3163 
1163 
4450 
1163 
4453 
4454 
4441 
4435 
4436 

0730 
6004 



1154 
7106 
7006 
7004 
011) 
3163 
7004 
3163 
1163 
4450 
1163 
4452 
1154 
0111 
4493 
4454 
4441 

4435 
4436 

0752 
6004 



7301 
4453 
1153 
7110 
7610 
1130 
1120 
0113 



DCA 

RAL 

DCA 

TAD 

LDCMD 

TAD 

LDADD 

RDCRC 

ACCMP2 

NERPOR 

ERROR 

T5T24 
6H04 



GDREG2 



GDREGl 
GDREGl 



GDREG2 



/SETUP COMPARE REGISTER 
/LINK FOR EXTENDED BIT 
/SETUP COMPARE REGISTER 
/GET DATA 
/LOAD COMMAND REGISTER 

/LOAD DISK ADDRESS 

/READ CRC REGISTER 

/CHECK AC, COMPARE TO GDREGl ♦ G0REG2 

/AC O.K. LOOP 4096 

/ERROR, CPC REGISTER LOAD BY 

/DLAG OR DLDC, 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT DCLp DOES NOT AFFECT CRC REGISTER. 

/LOAD CRC WITH DLAG ♦ DLDC. 

/ 



T5T35, 



TAD 

CLL RTL 

RTL 

RAL 

AND 

DCA 

RAL 

DCA 

TAD 

LDCMD 

TAD 

LDADD 

TAD 

AND 

CLRALL 

RDCRC 

ACC"P2 

NERROR 
ERROR 

TST25 
6004 



REG3 



K7740 
GDREG2 



GDREG) 
GDREGl 



GDREG2 



REG2 
K7775 



/SETUP COMPARE REGISTER 
/LINK FOR EXTENDED BIT 
/SETUP COMPARE REGISTER 

/LOAD COMMAND REGISTER 

/LOAD DISK ADDRESS 

/DON'T DO rECAL, 

/DCLR "CLR ALL" 

/READ CRC REGISTER 

/CHECK RESULTS, COMPARE TO GDREGl 

/AND GDREG3 

/O.K. 4096 LOOPS 

/ERROR, LOAD, READ, CLEAR CPC 

/REGISTER 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT THE CRC REGISTER IS NOT "FFECTFO BY 



/"DLDC", "DSKP", "DRST" 

/USE DATA PATTERN 2525 

/ 

TST26, CLA CLL lAC 

CLRALL 

TAD PEGl 

CLL RAR 

SZL CLA 

TAD K2525 

TAD KJ575 

AND K7740 



"RDBUF", OR 
5252. 



'DLCA", 



/USE DATA 5252 IF LINK IS SET 





PAllB 


Vt42A 


7-MAR 


■ 77 


13:55 PAGE 


J79a 


1007 






DCA 


GDREG? 


1791 


IBICI 






RAL 




179? 


lail 






DCA 


GDREGl 


1793 


iai2 






TAD 


GDREGi 


1794 


1013 






LDCMD 




1795 


1014 






TAD 


GDREG? 


1796 


1015 






LOADD 




1797 


1016 






TAD FEC2 


179? 


1017 






RDSTAT 




1799 


1020 






TAD 


REG2 


itiea 


1021 






DSK5KP 




isai 


1022 






NOP 




Inez 


1023 






RDBUF 




i«e3 


1024 






TAD REG2 


ie«4 


102! 






LDCUR 




ises 


1026 






TAD 


REG2 


16196 


1027 






LDC'<D 




1?«I7 


1030 






TAD 


REGl 


ues 


1031 






LOBUF 




ise9 


1032 






RDCRC 




1810 


1033 






ACCWP2 




nil 


1034 






NEPROR 




1812 


1035 






ERROR 




1813 


1036 






TST26 




1814 


1037 


6004 




6004 




1815 






/ 






1816 






/VERIFY THAT WBIIiS LOCK INHIB 


1817 






/WHEN 


IT 7S SET 




1818 






/ 






1819 


1040 


7301 


TSI27 


CLA CLL 


lAC 


18J8 


1041 


4453 




CLRALL 




1«21 


1042 


316) 




DCA 


GDBEGJ 


ie:2 


104) 


1153 




TAD 


REGl 


1823 


1044 


4452 




LDADD 




1824 


104! 


1104 




TAD 


K2e00 


1925 


1046 


4450 




LDC-fD 




1826 


1047 


1154 




TAD 


REG3 


18J7 


1050 


4452 




LDADD 




1829 


1051 


4446 




PDADD 




1829 


1052 


4440 




ACCMPI 




18)0 


105) 


4435 




NFPROR 




IBS'. 


1054 


44)6 




ERROR 




lis: 


1055 


1040 




TST37 




len 


1056 


4102 




4105 




183. 






/ 






1835 






/VERIFY THST THE DISK ADDRESS 


1 R3i> 






/ArrECTED PV "DCLR", "DLCA", 


1837 






/OR "RDBUF". USE DATA PATTERN 


1938 






/ 






1839 


1057 


115) 


TSI28 


TAD 


REGl 


194a 


1060 


3163 




DCA 


GDREG2 


1941 


1061 


115) 




TAD 


REGl 


1942 


1062 


4452 




LDADD 




1843 


106) 


1154 




TAD 


REG2 


1944 


1064 


0127 




AND 


K5777 



/SETUP COMPARE REGISTER 
/LINK FOR EXTENDED BIT 
/SETUP COMPARE REGISTER 
/GET UPPER DATA 
/LOAD COMMAND 

/LOAD DISK ADDRESS 

/READ STATUS 

/"DSKR" 

/READ BUFFER 

/LOAD CURRENT ADDRESS 

/LOAD COMMAND 

/LOAD UPPER BUFFER 
/READ CPC REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, CRC REGISTER 
/SCOPE t,OOP POINTFR 
/TEXT POINTER 

ITS LOAD ADDRESS 



/CLEAR CONTROL 

/SETUP COMPARE REGISTER 

/GET AC VALUE 

/LOAD DISK ADDRESS 

/SET WRITE LOCK 

/GET AC VALUE 

/TRY TO LOAD DISK ADDRESS 

/READ DISK ADDRESS 

/CHECK RESULTS 

/O.K. 4096 LOOPS 

/ERROR LOAD DISK ADDRESS 

/SCOPE LOOP POINTER 



REGISTER IS NOT 
•ORST", "DLDC", "DSKP' 
ALL COMBINATIONS. 

/GET AC VALUE 

/SETUP COMPARE REGISTER 

/LOAD DISK ADDRESS 

/MASK OUT WRITE LOCK 



1845 
1846 
1847 
1848 
1949 
1850 
1851 
1852 
1953 
1854 
1855 
1856 
1957 
1858 
1859 
I860 
1861 
1862 
1863 
1864 
1965 
1866 
1»67 
1868 
1869 
1870 
1871 
1872 
1873 
1974 
1875 
1976 
1877 
1878 
1879 
1880 
1981 
1882 
1993 
1994 
1885 
1»96 
1997 
1988 
1889 
1990 
1991 
1992 
1893 
1094 
1995 
1896 
1897 
1898 
1999 



1065 
1066 
1067 
1070 
1071 
1072 
107) 
1074 
1075 
1076 
1077 
1100 
1101 
1102 
110) 
1104 
1105 
1106 



107 
110 
lit 
112 
113 
114 
115 
116 
117 
120 
121 
123 
123 
124 
125 
126 
127 
180 
131 
132 
1)3 
134 
13S 
136 
137 
140 
141 



1142 
114) 



V142A 

4450 
1154 
4451 
1154 
4447 
7000 
4442 
1154 
4427 
4456 
7300 
4453 
4446 
4440 
44)5 
44)(< 
1057 
4102 



7301 
4453 
1153 
3163 
1153 
4450 
1154 
4452 
1154 
4451 
1154 
4447 
7000 
4442 
I1S4 
4427 
4456 
7300 
4453 
7J26 
4453 
4443 
4440 
4435 
44)(> 
1 107 
4201 



7301 
4453 



LOCMD 

TAD 

LDCUR 

TAD 

DSKSKP 

NOP 

RDSTAT 

TAD 

LDBUF 

ROBUF 

CLA CLL 

CLRALL 

RDADD 

ACCHpl 

NERROR 

ERROR 

TST2B 

4102 



BF52 

REG2 
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/LOAD COMMAN REGISTER 

/LOAD CURRENT ADDRESS 

/DSKP 

/READ STATUS 

/LOAD BUFFERS 
/READ LOWER BUFFER 

/CLEAR STATUS 

/READ DISK ADDRESS 

/CHECK AC, COMPARE TO GDREG? 

/AC O.K. 4096 LOOPS 

/ERROR, DISK ADDRESS AFFECTFD 

/SCOPE LOOP POINTED 

/TEXT POINTER 



/VERIFY THAT THE COMMAND RfGISTER Is NOT AFFECTED BY 

/"DLCR", "DLCA", >DR5T", "DLAG", "DSKP", OR "RDBUF". 

/USE DATA PATTERN ALL COMBINATIONS. 

/ 

TST29, CLA CLL lAC 

CLRALL 

TAD REGl 

DCA GDREG2 

TAD REGl 

LDCD 

TAD REG? 

LDADD 

TAD BEG? 

LDCUR 

TAD REG? 

DSKSKP 

NOP 

RDSTAT 

TAD BEG2 

LDBUF 

RDBUF 

CLA CLL 

C'lRALL 

CLA CLL CML RTL 

CLRALL 

RDCMD 

ACC"P1 

NERROR 

ERROR 

TST29 

4701 



/CLEAR CONTROL 

/GET AC VALUE 

/SETUP COMPARE REGISTER 

/LOAD COMMAND REGISTER 

/LOAD DISK ADDRESS 

/LOAD CURRENT ADDRESS 

/DSKP 

/READ STATUS 

/LOAD UPPFR BUFFER 
/READ LOWER BUFFER 

/CLEAR STATUS 

/RECALIBRATF 

/READ COXUjND REGISTER 

/CHECK AC. COMPARE TO GDRFG2 

/AC O.K. 4096 LOOPS 

/ERROR, CONt'AND REGISTER 

/SCOPE LOOP POINTER 

/TF.XT POINTER 



/VERIFY THAT RECALIBRATE INHIPIIS LOAD COMMAND 



CLA CLL lAC 
CLRALL 



/FNARLE CLEAR CONTROL 
/CLEAR CONTROL 
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13:S5 PACE 3-15 



I9«a 
1901 

t9«a 

1903 

1904 

190S 

1906 

1907 

190S 

l«09 

1910 

1911 

19U 

I9I3 

1914 

1915 

1916 

1917 

t9ie 

1919 

1920 

1921 

19!a 

1923 

1924 

19J5 

1926 

1927 

192S 

1929 

1930 

tojl 

1932 

1933 

1934 

1935 

1936 

1937 

1939 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

19S4 



1144 
1145 
1146 
1147 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1160 
1161 



1162 
1163 

1164 
1165 
1166 
1167 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1200 
1201 
1202 



1203 
1204 
1205 
1206 
1207 
1210 
1211 
1212 
1213 
1214 
1215 
1216 



4444 
7326 
4«53 
7326 
4453 
3163 
1153 
4450 
4443 
4440 
4435 
4436 
1142 
4201 



7301 
4453 
4«44 
1153 
3163 
1163 
4452 
7326 
445J 
1154 
4452 
4446 
4440 
4435 
4436 
1162 
4102 



7301 
4453 
1151 
0122 
3163 
1163 
4455 
4440 
4435 
4436 
1203 
4010 



EKMANl 

Chk CLL C"L RTL 

CLRALL 

CI.A CIL CML RTL 

CLRALL 



UCA 

TAD 

Lnc"D 

Rr>C"0 

ACCPl 

NrRROP 

ERROR 

TST30 

4201 



GDRRGa 
RFIGI 



/ENTER "AINTENANCE 

/ENSBLE RECALIBRATE 

/RECAlinRATE 

/ENABLE PFCALIHRATF 

/RECALIBRATt 

/SETUP COMPARE REGISTER 

/TRY TO LOAD COMMAND 
/READ COMMAND 
/CHECIt RESULTS 
/O.K. 4096 LOOPS 
/ERROR, IDLE til 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY THAT RECALIBRATE INHIBITS 

/LOAD DISK ADDRESS DLAG 

/ 

TST31, 



CLA CLL 


lAC 


/ENABLE CLEAR CONTROL 


CLRALL 




/CLEAR CONTROL 




ENMANl 




/ENTER MAINTENANCE 




TAD 


REGl 


/GET AC VALUE 




DCA 


GDREG2 


/SETUP COMPARE 




TAD 


GOREG? 






LDADD 




/LOAD DISK ADDRESS 


(DLAG) 


CI.A CLL 


CML RTL 


/ENABLE BECAL, 




CLRALL 




/RECALIBR»TF 




TAD 


BEG2 






LDADD 




/LOAD DISK ADDRESS 


CDLAG) 


ROAOD 




/READ DISK ADDRESS 




ACC"P1 




/CHECK RESULTS 




NERROR 




/O.K. 4096 LOOPS 




ERROR 




/ERROR ON INHIBIT 




TST31 




/SCOPE POINTER 




4102 




/TEXT POINTER 





/VERIFY THAI "OMAN" (MAINTENANCE) DOES NOT 
/AFFECT AC WHEN AC0»0 A»D AC7 = 1 OR 
/ 

IST32, CLA CLL lAC 
CLRALL 

FECI 

K3737 

GDREG2 

GDREG7 



TAD 

AND 

DCA 

IAD 

LDMAN 

ACCMPI 

NERROR 

ERROR 

TST32 

4010 



/VERIFY THAT "OMAN" DOES 
/AC7«0 AND AC0»1 OB 0, 



/CLEAR ENABLE BIT 
/DCLR "CLR ALL" 



/MASK OUT 

/SETUP COMPARE REGISTER 



/LOAD MAINTENANCE "OMAN" 
/CHECK AC, COMPARE TO GDBEG2 
/AC O.K. 4096 LOOPS 
/ERROR, "OMAN" AFFECTED AC 
/SCOPE LOOP POINTER 
/TEXT POINTER 



NOT AFFECT AC WHEN 
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1955 

1956 

1957 

1958 

1959 

I960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1969 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1993 

1984 

1995 

1986 

1997 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

?008 

2009 



1217 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1230 
1231 
1232 



1233 
1234 
1235 
1236 
1237 
1240 
1241 
1242 
12»3 
1244 
124! 
1246 
1247 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1260 
1261 
1262 



1263 
1264 
1265 
1266 
1267 
1271 
1271 
1272 
1771 
1274 



7301 
4453 
1153 
0123 
3163 
1163 
4455 
4440 
44J5 
4436 
1217 
4010 



7301 
4453 
1153 
3163 
1153 
4450 
1136 
3156 
4445 
1 102 
4455 
2156 
5245 
7 300 
4455 
1074 
4455 
3167 
1167 
4440 
4435 
4436 
1231 
4405 



TST33, 



7101 
4453 
1074 
3161 
1 153 
4450 
I 136 
3156 
4445 
I 1?2 



CLA CLL lAC 

CLRAIX 

TAD 



AND 

DCA 

IAD 

LDMAN 

ACCMpl 

NERROR 

ERROR 

TST33 

4010 



REGl 
K77I7 
GDBEG7 
GDREG2 



/CLEAR ENABLE BIT 

/DCLR "CLR ALL" 

/GET AC VALUE 

/MASK OUT BIT 7 

/SETUP COMPARE REGISTER 

/LOAD MAINtFNANCE 

/CHECK AC, COMPARE TO GDREG2 

/AC O.K., 4096 LOOPS 

/ERROR, OMAN AFFECT AC 

/SLOPE LOOP POINTER 

/TEXT POINTFR 



/VERIFY THAT "OMAN" ONLY GETS CLEARED BY 
/DCLR NOT BY ANOTHER OMAN. 



TST34, 



CLA CLL 

CLRALL 

TAD 

DCA 

TAD 

LOCMD 

IAD 

DCA 

ENMAN2 

TAD 

LDMAN 

ISZ 

JMP 

CLA CLL 

LDMAN 

TAD 

LDMAN 

DCA 

TAD 

ACCMpi 

NERROR 

ERROR 

TST34 

4405 



REGl 

GDREG2 

REGl 

M12 
TCNTRl 



TCNTRl 
.-2 



DBREG 
OF-RFG 



/CLEAR ENABLE BIT 
/DCLR "CLR ALL" 

/SETUP COMPARE REGISTER 

/LOAD COMMAND REGISTER 

/NO. OF SHIFTS 

/STORE IN COUNTER 

/ENTER MAINTENANCE MODE * UB4=1 

/GtT ENABLE COMMAND REG. 

/LOAD MAINTENANCE 

/COUNT ♦ SHIFT 12 



/"OMAN" TRY TO CLEAR MAIN FLOP 
/FNABt,E BIT FOR READ BUFFER 
/RFAD BUFFER 
/SAVE FOR PRINTER 

/CHECK AC 

/»C O.K. 4090 LOOPS 
/ERROR, MAIN FLIP FLOP 
/SCOPE LOOP POINTER 



/VERIFY THAT 
/"CLP ALL" 



■OMAN" GETS CLEAPtr BY DCLR 



TST15, 



CLA CLL lAC 

CLRALL 

TAD 



DCA 

TAD 

LnCMD 

TAD 

DCA 

ENMAN? 

TAD 



K0e20 

GDPEG2 

REGl 

Ml J 
TCNTRl 



/DCLR "CLR ALL" 

/SFTUP COMPARE RE'^ISTFR 

/LOAD COMMAND REGISTEP 

/SHIFT 12 COUNTER 

/FNTt-R "AINTENANCF "ODE ♦ Dh4=l 



ama 


1275 


4455 


2011 


1276 


2156 


1»t2 


1277 


527S 


2013 


1300 


7301 


1914 


1301 


4453 


2eis 


3302 


1074 


2ei6 


1303 


4455 


2B17 


1304 


4440 


2fiie 


1305 


4435 


2819 


1306 


4436 


2020 


1307 


1263 


2ej» 


1310 


4iJ10 


2U22 






J»23 






2024 






2»25 






2U26 






2812-7 


1311 


7301 


2<!2e 


1312 


4453 


2il29 


1313 


H53 


2030 


1314 


71 10 


2831 


1315 


7630 


2^32 


1316 


7340 


2033 


1317 


3163 


2B34 


1320 


1163 


iea 


1321 


0145 


2B36 


1322 


3162 


2B37 


1323 


1137 


2038 


U24 


3156 


2(139 


1325 


4444 


20«e 


1326 


1153 


2041 


1327 


7104 


2042 


1330 


0066 


2043 


1331 


1103 


2044 


1332 


4455 


2045 


1333 


2156 


2046 


1334 


5332 


2047 


1335 


4454 


2048 


1336 


4441 


2049 


1337 


4435 


2050 


1340 


4436 


2051 


1341 


mi 


205,' 


1342 


6004 


2«"5i 






205" 






2055 






Zflir, 






2057 






2058 






2059 






2060 






2061 






2062 






206 3 






2064 







2065 






2066 






2067 






2068 






2069 




7301 


2070 




4453 


2l"71 




1121 


2072 




3163 


2073 




1163 



LOMAN /Loan MAI^TKNft^Ct: "HMftN" 

J**P .-2 /12 COUNT 
CL» CLL lif 

CI'BII'L /CLtSo «LI. "DCLR" 

TAP K0020 

LOMAN /LOflP HAINTFMCK 

*CC"P1 /CHtCK AC, COMPARE TO GnpFG2 

NEFROP /AC n,K. 4096 LOOPS 

fPPfP /FRROB, UXA" AFFtCTKO AC 

T5T35 /SCOPr LOOP POINTER 

4010 /TFXT POINTER 

/ 

/VEPiry THAT "AC10 DATA" CAN f>E SHIFTFO TO 

/CBC REGISTER, THEN READ CRC PEGISTFB. 

/TRY ALL 1'S AND ALL 0'5. 



TST36, 



CLA CLL 


I AC 


CLPALL 




TAD 


RFGl 


CLL RAP 




Sll CLA 




CLA CLL 


CMA 


DCA 


GDREG3 


TAP 


GDPEG2 


AND 


l>0017 


DCA 


GDREGl 


TAD 


"16 


DCA 


ICNTRl 


ENMANl 




TAD 


REGI 


CLL PAL 




AND 


K00e2 


TAD 


K1000 


LOMAN 




ISZ 


ICNTRl 


J"P 


,-2 


RncRC 




ACCKP2 




NEBROR 




ERROR 




TSI36 




6«104 





/DCLH "CLP ALL" 



/SKIP IF ALL 0'S DATA 

/ALL ONE'S DATA 

/SETUP COHPAPF REGISTER 



/SETUP COMpARF REGISTER 



/SHIFTER FOR CBC 
/ENTER MAINTENANCE 



/ENABLE BITS 
/LOAD MAINTENANCE 

/16 COUNT 

/READ CBC REGISTER 
/COWPApE RESULTS 
/AC O.K, 4n9b LOOPS 
/EBPOB, CBC REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFI THAT "AC IB DATA" CAN BE SHIFTED TO 
/CBC REGISTEP, THEN READ CRC BEGISTFB, 
/TRY PATTERN "125252" 
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TST37, CLA CLL lAC 

CLB»LL /nCLB "CLR ALL" 

TAD K5252 

DCA GDREC2 /SETUP COMpARE REGISTER 

TAP GDBEG2 





PAL18 


V142A 


7-MAR- 


77 


13155 


2074 


1358 


8145 




AND 


K0017 


2875 


1351 


3162 




DCA 


GDKEG1 


2076 


1352 


1137 




UD 


M16 


2B77 


1353 


3156 




DCA 


TCNIRl 


2«i79 


1354 


4444 




ENMANl 




2B79 


1355 


7380 


T37R, 


CbA CliL 


itte 


1356 


1156 




no 


TCNTPl 


7«ll 


1357 


7084 




RAL 




2082 


1360 


0066 




AID 


K0002 


2H83 


1361 


1183 




TSD 


KI000 


399* 


1362 


4455 




LnMiX 




2ees 


1363 


2156 




ISZ 


ICNTR1 


2896 


1364 


535! 




JWP 


T37R 


2H87 


1365 


4454 




RnCRC 




2et8 


1366 


4441 




ACCHP2 




2889 












2890 


1367 


4435 




NEPROR 




2091 


1378 


4436 




ERROR 




2092 


1371 


1343 




TST37 




2893 


1372 


6884 




6004 




289« 






/ 






2095 


1373 


5774 




J«p I 


1+1 


2096 


1374 


1408 




TST38 




2097 






/ 






2898 




1480 


PAGE 






2899 






/ 






2100 






/VERin 


■ THAT "AC10 DAT) 


2181 






/TO CRC 


' RFGISTEP. THEN 


2182 












2183 












2184 












2185 












2106 






/TM PATTER "052525" 


2187 






/ 






2188 


1480 


7381 


IST38, 


CLA CtL 


lAC 


2189 


1401 


4453 




CLRALL 




2118 


1482 


1 120 




TAD 


K2525 


2111 


1483 


3163 




DCA 


GDREG7 


2112 


1484 


1163 




TAD 


GDRfG2 


2113 


1485 


8145 




AND 


K0Bn 


2114 


1406 


3162 




DCA 


GDREGt 


2115 


1497 


1137 




TAD 


M16 


2116 


1410 


3156 




DCA 


TCNTRl 


2117 


1411 


4444 




ENMANl 




2118 


1412 


7388 


T39R, 


CLA CLL 




2119 


1413 


1156 




IAD 


TCNTR1 


2128 


1414 


7044 




CHA RAL 




2121 


1415 


8066 




AND 


K00«2 


2122 


1416 


1183 




TAD 


K1000 


2123 


1417 


4455 




LDMAN 




2124 


1428 


2156 




ISZ 


TCNTRl 


2125 


1421 


5212 




JMP 


T3BR 


2126 


1422 


4454 




RDCPC 




2127 


1423 


4441 




ACC«P2 




2128 


1424 


4435 




NKBROR 





SLQ (1064 



/SETUP COMPARE REGISTER 



/SETUP 16 COUNT 

/ENTEP MAINTENANCE MODE 



/SETUP DAT» BIT 
/ENABLE BITS 
/LOAD MAINTENANCE 

/16 COUNT 

/READ CRC REGISTER 

/CHECK RESULTS 

/AC O.K. 4096 LOOPS 
/ERROR, CRC REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TtSI 



" CAN BE SHIFTED 
REAP CRC REGISTER, 



/CLEAR ALL "DCRL" 
/SETUP COMPARE REGISTER 

/SETUP COMPARE REGISTER 

/16 COUNIFR SHIFTER 
/ENTER MAINTENANCE MODE 



/SETUP "AC 10 DATA" 
/ENABLE BITS 
/LOAD MAINTENANCE 

/16 COUNT 

/READ CRC REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
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2129 

2130 

2131 

2132 

2133 

2134 

213! 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2168 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2188 

2181 

2182 

2183 



1425 
1426 
1427 



1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1458 

1451 

1452 

1453 

1454 

1455 

1456 

14i7 

1468 

1461 

1462 

1463 

1464 

1465 

1466 

1467 



1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1508 



4436 
1400 
6084 



7301 
4453 
1153 
3163 
1153 
8145 
3162 
7301 
3156 
1137 
3157 
4444 
1153 
8156 
7648 
1066 
1103 
4455 
7380 
1156 
7004 
3156 
7630 
5254 
2157 
5244 
4454 
4441 
4435 
4436 
1430 
6084 



7301 
4453 
3163 
3162 

7301 
3156 
1137 
3157 
4444 



ERROR 
TST38 
6084 



/ERROR, CRC REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTFR 



/VERIFY THAT "AC10 DATA" CAN BE SHIFTED TO CRC 

/REGISTER. TRY ALL COMBINATIONS. 

/ 

TSI39, CLA CLL lAC 

CLRALL 

TAD REGl 

DCA GDPEG2 

TAD REGl 

AND K0017 

DCA GDREGl 

CLA CLL lAC 

DCA ICNTRl 

TAD H16 

DCA TCNTR2 

ENHANl 

TAD REGl 

AND TCNTRl 

SZA CLA 

TAD K0002 

TAD Kl»0(1 

LDMAN 

CLA CLL 

TAD ICNTRl 

PAL 

DCA ICNTRl 

SZL CLA 

JMP .-3 

ISZ TCNTRJ 
JMP T39R 



T39R, 



/OCLR "CLB ALL" 

/SETUP COMPARE REGISTER 

/SETUP COMPARE PEGI6TER 

/SETUP BIT MASKER 

/SETUP FIRST SHIFT COUNTER 
/ENTER MAINTENANCE MODE 



/SKIF IF 
/WAS > 1 
/ENABLE BITS 
/LOAD MAINTENANCE 



RDCRC 

ACCMP2 

NFRROR 

ERROR 

TST39 

6004 



/ROTATE BIT MASKER 

/WAIT FOR FIRST LINK THEN 
/RESET BIT 11 IN MASKER 

/LOOP BACK 
/READ CRC REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, CRC REGISTER 
/ERROR, CRC REGISTER 
/TEXT POINTER 



/VERIFY THAT "DLAG" CLEARS ALL OF THE 

/CRC REGISTER, TRY ALL COMBINATIONS IN CRC. 



TST4B, 



CLA CLL lAC 
CLRALL 

DCA GDPEG5 
DCA GDREGl 
CLA CLL lAC 
DCA ICNTRl 
T»D M16 
DCA TCNTR2 
ENMANl 



/OCLR "CLP ALL" 

/SETUP CO"pARR BtGISTERS 

/SfTUB BIT MASKER 

/SETUP FIRST SHUT COUNTLF 
/ENTER "AINTENANCr "ODE 



VI42t 



2184 
2I9S 
2186 
2197 
2198 
2t8« 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2202 
2201 
2282 
2203 
2204 
22B5 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2J1J 
2214 
2215 
2216 
2217 
2218 
2219 
222? 
2221 
2222 
2223 
2224 
J725 
27J'' 
27'' ■• 
22J» 
2229 
2?^k^ 
2231 
2232 
2233 
2234 
223S 
2236 
2237 
2238 



1501 
1S02 
1503 
tS04 
1505 
1506 
1507 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1526' 
1521 
1522 
1523 
1524 
1525 



1526 

1527 

1530 
1531 
1532 
1531 
1534 
1535 
1536 
1537 
1S4>J 
1541 
1542 
1543 
1544 



1545 
1546 
1547 
1550 
1551 
1552 
1553 
1554 



1154 

0156 
7640 
1066 
1103 
4455 
7390 
1)56 
7004 
3156 
7630 
5311 
2157 
5301 
4452 
4454 
4441 
4435 
4436 
1470 
6034 



7301 
4453 

1153 
7110 
7630 
7240 
3163 
1163 
4427 
4456 
4440 
4435 
4436 
1526 
4405 



7301 
4453 
1153 
7110 
7630 
1120 
1120 
3165 



T»D 

*MD 

SZA CLA 

T»D 

TAD 

LnHAN 

CI. A CLL 

TAD 

P«U 

DCA 

5ZL CUA 

JMP 

ISZ 

J«P 

LDADD 

pnCRC 

ACCMP2 

NFPPOB 

EPROP 

IST40 

f.004 



/VFPIfY THAT "AC10 DATA" CAN 
/UPPER DATA BUFFtP THEN SINK 
/RIIFFEB, TPV ALL I'S AND 0'S, 



BEG2 
ICNTRI 



KaU02 
K1000 



TCNTR7 
I40R 



/SKIF IF B 
/iltS A 1 
/ENABLE BITS 
/LOAD NAIHTtNJNCE 



/ROTATE BIT MASKEP 

/WAIT FOR FIRST LINK THEN 
/RESET BIT 11 IN MASKER 

/LOOP BACK 

/LOAD DISK ADDRESS AND CLEAR CPC 

/READ CRC REGISTER 

/CHECK RESULTS 

/O.K. 4096 LOOPS 

/ERROR, CRC REGISTER 

/ERROR, CRC REGISTER 

/TEXT POINTER 

BE SHIFTED TO 
TO LOWER DATA 



CLA CLL lAC 
CLBALL 



TAD 

CLL BAR 

SEL CLA 

CLA C^A 

DCA 

TAD 

LDBUF 

RDBUE 

ACCMPl 

NFBROR 

ERROR 

TST41 

4405 



GDBEG2 
GDREG2 



/VERIFY TH.n r 
/UPPER DAI ■■ 
/BUFFER, Tp; 



■■•C10 DA-r 
■--FEB THE 
PATTERN 3525 



CAN 
INK 



/"DCLR" "CLR ALL" 



/GET VALUE TO LOAD 

/LOAD UPPER BUFFER 

/READ LOWER BUFFER 

/CHECK AC, COMPARE TO GDREG2 

/AC O.K. 4096 LOOPS 

/EBROP, DATA REGISTERS 

/SCOP LOOP POINTER 

/TEXT POINTER 

BE SHIFTED TO 
TO LOWER DATA 
252 



TST42, 



CLA CLL lAC 

CLRALL 

TAD PEGl 

CLL RAB 

SIL CLA 

TAD K2525 

TAD K252S 

DCA GDREG2 



/WHAT DATA???? 
/DATA 5252 



/SETUP COMPARE PEGISTEB 



PAHa V142A 7.MAR-77 



13155 PAGE 5-3 



2239 


1S5S 


1163 


2240 


1556 


4427 


2241 


1557 


4456 


2242 


1560 


4440 


2243 


1561 


4435 


2244 


1562 


44]6 


2245 


1563 


1545 


2246 


1564 


4405 


2247 






2249 






2249 






2250 






2751 






2752 






2253 


1565 


7301 


2254 


1566 


4453 


2255 


1567 


1154 


2256 


1570 


3163 


2257 


1571 


1163 


2258 


1572 


4427 


2259 


1573 


4456 


2260 


1574 


4440 


2761 


1575 


4435 


2262 


1576 


4436 


2263 


1577 


1565 


2264 


1600 


4405 


2265 






2766 






2267 






2268 






2269 






2770 


1601 


7301 


2271 


1602 


4453 


2272 


1603 


1153 


2273 


1604 


3163 


2774 


1605 


1153 


2275 


1606 


4427 


2776 


1607 


4456 


2277 


1610 


4440 


2278 


1611 


4435 


2279 


1612 


4436 


22»0 


1613 


1601 


2281 


1614 


4405 


2282 






2283 






2284 






2295 






2786 


1615 


7301 


2287 


1616 


4453 


2288 


1617 


1 153 


2789 


1620 


3161 


2290 


1621 


1133 


2791 


1622 


3160 


2792 


1623 


1161 


2293 


1621 


4427 



TAD 

LDBUF 

BDBUF 

ACC"P1 

NEBROB 

EorOr 

TST42 

4405 



GDREG2 



/GET VALUE TO LOAD 
/LOAD UPPER BUFFER 
/READ LOWER DATA BUFFER 
/CHECK AC, COMPARE TO GDREG2 
/AC O.K. 409b LOOPS 
/ERROR, DATA BUFFERS 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VEPIFTY THAT "AC10 DSTA' CAN HE SHIFTED TO 
/UPPER DATA BUFFEP THEN SINK TO LOWER 
/DATA BUFFER. TRY PATTERN ALL COMBINSTIONS 
/ 
TST43, 



CLA CLL 


I AC 




CLRALL 




/"DCLR" "CLR ALL" 


TAD 


REG2 


/GET VALUE TO LOAD 


DCA 


GDREG2 


/SETUP COMPARE REGISTER 


TAD 


GDREG2 


/GET IT 


LDBUF 




/LOAD UPPFP BUFFER 


RDBUF 




/READ LOWER DATA BUFFER 


ACCMPl 




/CHECK AC 


NFRPOB 




/AC O.K. 4096 LOOPS 


EBBOB 




/EPROP, DATA REGISTERS 


TST43 




/SCOPE LOOP POINTER 


4405 




/TEXT POINTER 



/VERIFY THAT "AC10 DATA" CAN BE SHIFTED 

/TO UPPER DATA BUFFER THEN SINK TO LOWER 

/DATA BUFFER. TRY ALL COMBINATIONS. 

/ 

TSI44, 



CLA CLL 


I AC 


CLRALL 




IAD 


REGl 


DCA 


GDREG7 


TAD 


BEGl 


LDBUF 




RDBUE 




ACCMPI 




NFRROF 




ERROR 




TST44 




4405 





/SETUP COMPARE REGISTER 

/GET VALUE TO LOAD 

/LOAD UPPER BUFFER 

/BEAD DATA BUFf ER 

/CHECK AC, COMPARE TO GDREGZ 

/AC O.K. 4096 LOOPS 

/ERROR, DATA REGISTERS 

/SCOPE lOOP POINTER 

/TEXT POINTEB 



/VERIFY THAT ALL DATA BUFFERS CAN BE FULL 
/AT ONCE. TRY ALL COMBINATIONS 



TST45, 



T45B1, 



CLA CLL 


lAC 




CLRALL 




/DCLR 'CLK ALL" 


TAD 


REGl 




DCA 


TCNTR4 




TAD 


H4 




DCA 


TCNTBj 


/COUNTER FOP • Of 


TAD 


TCNTR4 




LDBUF 




/LOAD UPPFR BUFFER 
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3}94 


1625 


7301 


2395 


1626 


1161 


JJ96 


1637 


3161 


SJ9T 


1630 


2160 


:}98 


1631 


5223 


?S99 


1632 


1153 


2300 


1633 


3163 


2301 


1634 


113' 


2382 


1635 


3160 


2303 


1636 


4456 


2304 


1637 


444" 


33«! 


1640 


7610 


3306 


1641 


5347 


2307 


1642 


2163 


2306 


1643 


7D00 


2309 


1644 


2160 


2310 


1645 


5236 


23tl 


1646 


4435 


2312 


1647 


4*36 


2313 


1650 


16)5 


2314 


1651 


4405 


3315 






2316 






2317 






3318 






2319 






3330 


1652 


7301 


2321 


1653 


4453 


2332 


1654 


1154 


3333 


1655 


3163 


2324 


1656 


1133 


2325 


1657 


3156 


3326 


1660 


1163 


2327 


1661 


4427 


2338 


1662 


2156 


3339 


1663 


5260 


3330 


1664 


115' 


3331 


1665 


4452 


3332 


1666 


1153 


2333 


1667 


4451 


2334 


1679 


1153 


2335 


1671 


0105 


2336 


1672 


4450 


3337 


1678 


1153 


3339 


1674 


4447 


2339 


1675 


7000 


3340 


1676 


4442 


2341 


1677 


7300 


2343 


1700 


4453 


2343 


1701 


1133 


2344 


1702 


3156 


2145 


1703 


7300 


2346 


1704 


1074 


3347 


1705 


4455 


234B 


1706 


3167 



CLA CLL lAC 



T45R3, 



T45E, 



TAD 

DCA 

ISZ 

JMP 

IAD 

OCA 

IAD 

DCA 

RDBUF 

ACCMPI 

SKP CLA 

JMP 

ISZ 

NOP 

ISZ 

JfP 

NTRBOB 

EPROR 

IST45 

4405 



ICNIR4 

TCNIP4 

ICNTR3 

I45P1 

REGl 

GDPrGJ 

"4 

TCNIB3 



T45E: 
GDPEGJ 



ICNIRl 
T45R3 



/4 COUNT, SKIP «1HSN bUFFERS fVhh 
/SETUP FOP FIRST CNXPJRE 



/READ BUFFER 

/CHECK 

/O.K. CHECK NEXT 

/ERROR DATA BUFFERS 



/O.K. 4096 LOOPS 
/ERROR, DATA BUFFERS 
/SCOPE loop POINTER 
/TEXT POINTER 



/VERIFY THAT THE SILO B 
/"DCLR", "DLAG", "DLDC" 
/USE DATA PATTERN ALL C 
/ 
TST46, 



T46A1, 



T46A2, 



CLA CLL 


I AC 


CLRALL 




TAD 


REG7 


DCA 


GDREG2 


I«D 


H4 


DCA 


ICNTR1 


TAD 


0DREG2 


LDBUF 




ISZ 


TCNTRI 


JMP 


T46A1 


TAD 


BEGI 


LDADD 




TAD 


REG1 


LDCUR 




TAD 


PEGI 


AND 


K3777 


LDCMD 




TAD 


RFG1 


DSK5KP 




NOP 




BD5TAT 




CLA CLL 




CLBALL 




TAD 


H4 


DCA 


TCNTRI 


CLA CLL 




TAD 


K0020 


LDMAN 




DCA 


DBREG 



"FFERS ARE NOT AFFECTED BJ 

"OLCS", "DSKP", 0R "DRST" lOTS 
OMBINAIIONS 



/DCLR 

/SETUP COMPARE REGISTER 

/COUNTER FOP AMOUNT OF BUFFERS 
/GET VALUE TO LOAD 
/LOAD UPPER BUFFER 
/COUNT AMOUNT 
/MORE TO LOAD 

/LOAD DISK ADDRESS 

/LOAD CURRENT ADDRESS 

/MASK OFF WRITE 

/LOAD COMMAND REGISTER 

/DSKP 

/READ STATUS 

/CLEAR STATUS 

/SETUP COUNTER 

/ENABLE READ BUFFER 

/OMAN 

/SAVE RESULTS 
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2349 

2350 

2351 

2352 

3353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

7364 

2365 

2366 

2367 

2369 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

3379 

2390 

2381 

2383 

2383 

2394 

2385 

2386 

2387 

2388 

3389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

3398 

3399 

2400 

2<0t 

3403 

340) 



1707 
1710 
17U 
1713 
1713 
1714 
1715 
1716 
1717 
1730 



1721 
1733 
1733 
1734 
1725 
1736 
1727 
1730 
1751 
1733 
1733 
1734 
1735 
1736 
1737 
1740 
1741 
1743 
1743 
1744 



1745 
1746 
1747 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1760 
1761 
1762 
1763 



1167 
4440 
7610 
5316 
2156 
5303 
4435 
4436 
1652 
4405 



3156 
7101 
4453 
1 156 
3163 
1156 
4427 
4456 
4440 
7610 
5342 
1156 
7104 
7450 
7001 
3156 
4435 
4436 
1733 
4405 



3156 
7501 
4453 
1156 
7040 
3163 
1163 
4427 
4456 
4440 
7610 
5367 
1156 
7104 
7450 



T46E, 



TAD 

ACCMPl 

SKP CLA 

JMP 

ISZ 

JMP 

NERROR 

ERROR 

TSI46 

4405 
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OBREG 



T46E 

TCNTRI 
T46A3 



/CHECK RESULTS 

/DATA O.K. 

/ERROR 

/READ ALL FOUR 

/LOOP 

/O.K. 4096 LOOPS 

/ERROR, BUFFER AFFECTED 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT THE UPPER BUFFER CAN BE LOADED 
/THEN SINK TO LOUER BUFFER. USE A FLOATING 
/I'S PATTERN. 



TST47, 



T47E, 



DCA TCNTRI 

CLA CLL lAC 

CLRALL 

TAD 

DCA 

TAD 

LDBUr 

RDBUF 

ACCMPl 

SKP CLA 

JMP 

TAD 

CLL PAL 

SNA 

lAC 

DCA 

NERROR 

EPROR 

TST47 

4405 



TCNTRI 
GDREG2 
TCNTRI 



T47E 
TCNTRI 



TCNTRI 



/START AT 

/ENABLE CLEAR CONTROL 

/CLEAR CONTROL 

/GET VALUE TO LOAD 

/SETUP COMPARE REGISTER 

/GET VALUE TO LOAD 

/LOAD UPPER BUFFER 

/READ LOUFR BUFFER 

/CHECK RESUITS 

/DATA O.K. 

/ERROR 



/SET ONE TO LEfT 
/LOOP 4096 TIMES 
/ERROR SILO BUFFERS 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY THAT THE UPPER BUFFER C»N BE LOADED 
/THEN SINK TO LOWER BUFFER. USE A FLOATING 
/0'S PATTERN, 



T5T48, 



DCA TCNTRI 
CLA CLL lAC 
CLRALL 



TAD 

CMA 

DCA 

TAD 

LDBUF 

RDBUF 

ACCMPl 

SKP CLA 

JMP 

TAD 

CIrL RAL 

SNA 



TCNTRI 

GDREGJ 
GDREG5 



T48E 
TCNTRI 



/START ST 7777 
/ENABLE CLEAR CONTROL 
/CLEAR CONTROL 
/GET VALUE 10 LOAD 
/INVERT FOR C'S 
/SETUP COMPARE REGISTER 
/GET VALUr TO LOAD 
/t.OAD UPPFR PUFFEP 
/READ LOtikR BUFFFH 
/CHECK RESULTS 
/DATA O.K. 
/ERROR 





E'AL10 
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2404 


1764 


7001 




I«C 




2495 


1765 


3156 




CCA 


TCNTRt 


2406 


1766 


4435 




NFBROP 




2407 


1767 


4436 


T48E, 


ERROR 




2406 


1770 


1746 




IST48 






1771 


4405 




4405 










/ 








1772 


577) 




JXP I 


.«1 




1771 


2?9« 




TST49 










/ 










2000 


PAGE 












/ 












/VERIFY 


THAT "PRL" OCCUREE WHEN 








/ENPTY, 












/ 








2000 


7301 


TST49, 


CtiA CLL 


lAC 




2001 


445) 




CtRALL 






2002 


1177 




TAD 


STCON 




200) 


316) 




DCA 


GDBEG2 




2004 


115) 




TAD 


RFC! 




2005 


4442 




PD5TAT 






2006 


4440 




ACCHRl 






2007 


7610 




SKP CLA 






2010 


52)2 




JNP 


T49E 




2011 


1177 




TAD 


STCON 




2012 


1070 




TAD 


Kfl004 




2013 


)16) 




DCA 


GDPEG2 




3014 


4444 




FNKANl 






2015 


1 10) 




TAD 


K1000 




2016 


4455 




LOMAN 






3017 


7240 




COA CMA 






2020 


4442 




RD5TAT 






2021 


4440 




ACCMPl 






2022 


761(1 




SKP CLA 






202) 


5232 




JMp 


T49E 




2024 


117' 




TAD 


STCON 




2B25 


316J 




DCA 


GDREG2 




2026 


4453 




Ct.RALL 






2027 


4442 




B05TAT 






20)0 


4440 




ACCXPl 






20)1 


4435 




NFRPOR 






20)2 


4436 


T49E, 


ERROR 




2446 


2033 


2000 




TST49 




2441 


30)4 


5000 




fiPtp^' 




2449 






/ 






?449 






/VERIFY 

/ 
TST50, 


THA-. BUFFER FULL CAUSES ' 


2451 


2035 


7301 


CLA CLL 


I AC 


2452 


30)6 


445) 




CLRALL 




24S3 


2037 


1177 




TAD 


STCON 


2494 


2040 


3163 




DCA 


GDBEG2 


24SS 


2041 


1154 




TAD 


REG2 


2456 


2042 


4442 




RDSTAT 




2457 


204) 


4440 




ACCPl 




2458 


2044 


7610 




SKP CLA 





/SET ONE TO LEFT 
/LOOP 4096 TIMES 
/ERROR SILO BUFFERS 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TEST 



/"DCLR" CLEAR ALL 
/GET EXPECTED BITS 
/SETUP COMPARE REGISTER 

/READ STATUS REGISTER 

/CHECK RESULTS 

/O.K. 

/ERROR, STATUS REGISTER 

/GET EXPECTED BITS 
/SETUP COMPARE REGISTER 
/ENTER MAINTENANCE MODE 

/LOAD MAINTENANCE 

/READ STATUS REGISTER 

/CHECK RESULTS 

/O.K. 

/ERROR, STATUS REGISTER 

/SETUP COMPARE REGISTER 
/DCLP "CLEAR STATUS" 
/READ STATUS REGISTER 
/CHECK RESULTS 
/STATUS O.K., 4096 LOOPS 
/ERROR, STATUS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 

"ORL", 



/DCLR "CLR ALL" 

/SETUP COMPARE REGISTER 

/READ STATUS REGISTER 
/CHECK RESULTS 
/O.K. 
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2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
247) 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
248) 
2484 
2485 
3486 
3487 
3488 
2489 
2490 
2491 
2492 
249) 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
250) 

2504 
2505 
2506 
2507 
2509 
250') 
2510 
2511 
2512 
251) 



2045 
2046 
2047 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2060 
2061 
3062 
2063 
2064 
2065 
2066 
2067 

2070 
2071 
2072 
2073 
2074 
2075 
2076 



2077 
2100 
2101 
2102 
3103 
3104 
2105 
2106 
2107 
2110 
2111 
2112 
211) 
2114 
2115 
2U6 



5274 
1140 
3156 
4444 
1077 
4455 
2156 
5252 
7300 
4442 
4440 
7610 
5274 
1077 
4455 
7300 
1177 
1070 
316) 

115) 
4442 
4440 
44)5 
44)6 
20)5 
5000 



7)01 
4451 
4444 
110) 
4455 
7300 
4447 
5)14 
4447 
5314 
445) 
4447 
4435 
44)6 
2077 
0006 



JMP 

T»D 

DCA 

ENMANl 

TAD 

LDMAN 

ISZ 

JMP 

CLA CLL 

RDSTAT 

ACCMPl 

SKP CLA 

JMP 

TAD 

LDMAN 

CLA CLL 

TAD 

TAD 

DCA 

TAD 

RDSTAT 

ACCMPI 

NFRROR 

ERROR 

TST50 

500P' 



T50E 

M48 

TCNTRl 



TCNTRt 
.•2 



T50E 
K0100 



STCON 
K0004 
ODREGJ 



/ERROR, STATUS REGISTER 

/48 COUNTER 

/ENTER MAINTENANCE "ODE 

/ENABLE BITS 

/LOAD MAINTENANCE 

/SKIP "HEN BUFFERS ARE FULL 

/READ STATUS REGISTER 
/CHECK RESULTS 

/ERROR, STATUS REGISTER 

/CAUSE "DRL" OMAN 



/BIT EXPECTED 

/SETUP COMPARE REGISTER 



/READ STATUS REGISTER 
/CHECK RESULTS 
/STATUS O.K., 4096 LOOPS 
/ERROR, STATUS REGISTER 
/SCNPE LOOP POINTER 
/TEXT POINTER 



SEQ 0071 



/VEPIFY THAI 
/ 



•DSKP" SKIPS ON "DPI" ERROR 



CLA CLL lAC 

CLRALL 

ENMANl 

IAD K1000 

LDMAN 

CLA CLL 

DSKSKP 



JMP 

DSKSKP 

JMP 

CLRALL 

DSKSKP 

NERROB 

EPROp 

TST51 

0006 



T51E 
I51E 



/DCLR "CLR ALL" 

/ENTER MAINTENANCE MODE 

/SET "DRL" "OMAN" 

/"DSKP" 

/ERROR, "DSKP" 

/"DSKP" 

/ERROR, "DSKP" 

/CLEAR STATUS "DCBL" 

/"DSKP" SKIP 

/SKIP O.K. 4096 LOOPS 

/ERROR, "DSKP" SKIP ON "DRL" 

/SLOPE LOOP POINTER 

/TEXT POINTER 



2117 7)01 

2120 4453 

2121 1102 

2122 4450 

2123 4444 



/VFRIFTY THAT "DRL" DOES CAUSE DISK "INTERRUPT" IF 

/ENABLED BY "ENABLE INTFRRUPT" BIT IN COMMjND FEGISTER, 

/ 

TST52, CLA CLL 1 AC 

CLRALL /"DCRt." "CLP ALL" 

TAD Ktl4t^0 

LDCMD /SET INT, ENABLE "LOAD COMMAND REG 

ENMANl /ENTER "AINTENANCF MODE 
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2514 
351S 

:si6 
asi7 

2519 

2519 

2520 

2521 

25?J 

2523 

252* 

2525 

2526 

2527 

252« 

2529 

25319 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

3538 

2539 

2540 

2541 

2542 

254] 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

25S1 

2552 

2553 

3554 

2595 

3596 

2597 

2558 

2599 

2560 

2561 

2562 

2563 

2564 

2565 

3966 

3567 

3568 



3134 
3135 
3136 
3127 
3130 
2131 
2132 
2133 



3134 
3135 
3136 
3137 
3140 
3141 
2142 
2143 
3144 
3145 
2146 
2147 
2150 
3151 
2152 
2153 
2154 
2155 
2156 
2157 
216(1 

2161 
2162 



2300 
3301 
2202 
3203 
3304 
2305 
3306 
2207 
2210 
3211 
2212 
2213 



1103 
4455 

4437 

7610 
4435 
4436 
2117 
0007 



7301 
4493 
4444 
1103 
4455 
4437 
7610 
5356 
1102 
4450 
4437 
7610 
5356 
1103 
4455 
4437 
7610 
4435 
4436 
2134 



5762 
2200 



7301 
4493 
1177 
1070 
3163 
4444 
1103 
4455 
7300 
1154 
4442 
4440 



IDMAN 

IONW»T 

SKP CL» 

NERROR 

ERROR 

TSI52 



SEO 0072 



/"SET DRL" "OMAN" 
/WAIT FOR INTERRUPT 
/ERROR, NO INT, RO. 
/O.K. INT. OCCURRED 
/ERROR, INT, REQUEST 
/SCOP LOOP POINTER 
/TFXTPOINTER 



/VERIFV THAT »DRL" SHOULD CAUSE INT, RO, ONLi 

/WHEN "INT. ENABLE BIT IS SET, DOES LDC"D CLEAR INT, 



T53E, 



CLA CLL lAC 

CLRALL 

ENMANl 

TAD K10 

LDHAN 

lONWAT 

SKP CLA 

J"P 

TAD 

LDC"D 

lONWAT 

SKP CLA 

JMP 

TAD 

LDMAN 

lONHAI 

SKP CLA 

NERROB 

ERROR 

TST5 3 



T53E 
K0400 



T53E 
Kt000 



J"P I .♦I 

ISI54 
/ 

PAGE 
/ 

/VERIFY THAT "LDCMD" 
/ 
ISI54, CLA CLL lAC 

CLRALL 

TAD 

TAD 

DCA 

ENMANl 

TAD 

LOMAN 

CLA CLL 

TAD 

BDSTAT 

ACCHPl 



/DCLR "CLR ALL" 

/ENTER MAINTENANCE MODE 

/SET "DRL" OMAN 
/WAIT FOR INT. 
/O.K. NO INT. 
/ERROR, INT, OCCURRED 

/SET INT, ENABLE AND CLEAR INT. 
/WAIT FOR INI, 
/O.K. NO INT. RQ. 
/ERROR, INT, OCCURED 

/SET "DRL" "OMAN" 
/WAIT INI,, SHOULD INI, 
/ERROR, NO INT. 
/O.K. INI. OCCURRED 
/ERROR,, INI, RQ 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TEST 



STCON 
K0004 
0DBEG2 



REC2 



CLEARS STATUS REGISTER 

/DCLR "CLR ALL" 



/SETUP COMPARE REGISTER 

/ENTER MAINTENANCE MODE 

/ENABLE 

/SET "DRL" OMAN 



/READ STATUS REGISTER 
/CHECK RESULTS 



PAL10 Vt42A 7-MAR.77 



13155 PAGE 5-9 



2569 

2570 

3571 

3572 

2573 

2574 

2575 

2576 

2577 

3578 

3979 

2580 

2581 

2583 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2992 

2993 

2994 

2995 

2596 

2597 

2598 

2599 

2600 

2601 

3603 

2603 

2604 

3605 

3606 

3607 

2608 

2609 

2610 

2611 

2612 

3613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 



2214 
2215 
2216 
2217 
2330 
3221 
2222 
2223 
2224 
2235 
3336 
2227 



2230 
2231 
2232 
3333 
3334 
3335 
3336 
3337 
3340 
2341 
3343 
3243 
2244 
2245 
2346 
3347 
3350 
2391 
2252 
2253 
2254 



2255 

2256 
2257 
226." 
3261 
2262 
2263 

2264 
2265 
2266 
2267 

2270 
2271 



7610 
5225 

4450 
1177 
3163 
1193 
4442 
4440 
4435 
4436 
2200 
9000 



7301 
4453 

7301 
4453 

1177 
3163 
4442 
4440 
7610 
9292 
7326 
1177 
3163 
7326 
4453 
4442 
4440 
443! 
443* 
2230 
5000 



73B1 
4453 

4452 
1 177 
1066 
3163 
1153 

4442 
4440 
4435 

4436 
2255 

5000 



SKP CLA 

JMP 

LDCD 

TAD 

DCA 

TAD 

RDSTAT 

ACCMPI 

NFRROR 

ERROR 

TST54 

9000 



STCON 

GDREG2 

REGl 



/O.K. CHECK CLEAR 
/STATUS REGISTER ERROR 
/CLEAR STATUS, "LOAD COMMAND" 

/SETUP COMPARE REGISTER 

/READ STATUS REGISTER 
/CHECK RESULTS 
/STATUS 0,K, 4096 LOOPS 
/ERROR, STATUS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY 
/ERROR 



TST5S, 



THAT RECALIBRATE DOES SCI DRIVE STATUS 
IN THE STATUS REGISTER, 



CLA CLL 

CLRALL 

CLA CLL 

CLRALL 

IAD 

DCA 

RDSTAT 

ACCMPI 

SKP CLA 

JMP 

CIA CLL 

TAD 

DCA 

CLA CLL 

CLRALL 

RDSTAT 

ACCMPI 

NERROR 

ERROR 

TST55 

5000 



lAC 

lAC 



STCON 
GDREG2 



T55E 
CML RTL 
STCON 
GDREG2 
CML RTL 



/ENABLE CLEAR CONTROL 
/CLEAR CONTROL 
/ENABLE CLEAR CONTROL 
/ENABLE CLEAR CONTROL 

/SETUP EXPECTED COMPARE 
/READ STATUS REGISTER 
/CHECK RESULTS 
/STATUS 0,K, 
/ERROR, STATUS 



/SETUP EXPECTED COMPARE 
/ENABLE RECALIBRATE 
/RECALIBRATE 
/READ STATUS 
/CLECK RESULTS 
/0,K. 4096 LOOPS 
/ERROR, STATUS 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY 

/ 

TST56, 



THAT "LOAD DISK ADDRESS CAUSES" "DRIVE STATUS ERROR" 
lAC /ENABLE CLEAR CONTROL 



CIA CLL 

CLRALL 

LDADD 

TAT 

TAD 

DCA 

IAD 

RDSTAT 

ACCMPI 

NFRROR 

ERROR 

TST56 

5000 



STCON 
K0e02 
GDREG5 
REGl 



/READ STATUS REGISTER 
/CHECK BESULTS 
/STATUS O.K. 4096 LOOPS 
/ERROR, STATUS REGISTER 
/SCOPF LOOP POINTER 
/TEXT POINTER 



UiSS PAGE s-ie 



2624 






/VERIFY 


TH«T "DRIVE STATUS 


2625 






/ 'DOES 


LDC'D CLEAR INI." 


2«26 






/ 






2»?7 


2272 


7301 


IST57, 


CL» CLL 


lAC 


2621) 


2273 


4453 




CLRALL 




2629 


2274 


1103 




TAD 


K04e0 


2630 


2275 


4450 




LDC"D 




2631 


2276 


4452 




LIADD 




2632 


2277 


4437 




ION"AI 




2631 


2300 


530! 




J"F 


T57E 


2634 


2301 


1102 




TAD 


K0400 


2635 


2302 


4450 




LnCID 




2636 


2303 


4437 




lONBAT 




2637 


2304 


4435 




NEBROP 




263B 


2305 


4436 


T57F, 


ERROR 




2639 


2306 


2272 




TST57 




2640 


2307 


0007 




0007 




264) 






/ 






2642 






/VERIFY 


THAT "LOAD DISK ADDI 


2643 






/"DRIVE 


STATUS 


ERROR". TEST 


2644 






/ 






264S 


2310 


7301 


TSI59, 


CLA CLL 


lAC 


2646 


2311 


4453 




CLRALL 




2647 


2312 


4452 




LDADD 




2648 


2313 


4447 




DSKSKP 




2649 


2314 


5320 




JMP 


T58E 


26se 


231! 


4447 




DSKSKP 




2651 


3316 


5320 




JHP 


TSSF 


2652 


2317 


443! 




NFRROR 




2653 


2320 


4436 


Tiae, 


ERROR 




2654 


2321 


3310 




TSTie 




2655 


2322 


0006 




0C106 




2656 












2657 






/ 






2659 






/VERIFY 


THAT SELECT ERROR C) 


2659 






/ 






2660 


2323 


7301 


TST59, 


CLA CLL 


lAC 


2661 


2324 


4453 




CLRALL 




2662 


2325 


4452 




LDADD 




2663 


2326 


4447 




DSKSKP 




2664 


2327 


5333 




JMP 


T59E 


2665 


2330 


4453 




CLRALL 




3666 


2331 


4447 




DSKSKP 




266-:' 


3332 


4435 




NERRO" 




atoi 


3333 


4436 


T59F, 


EPP"'; 




2669 


2334 


2323 




TSTSi 




J67tt 


2335 


0006 




0006 




2671 






/ 






2672 






/ 






2673 






/ 






2674 






/VERIFY 


THAT SELECT ERROR C« 


2675 






/THEN INTFRRUPT 




2676 






/ 






2677 












267S 


2336 


7301 


TSI60, 


CLA CLL 


lAC 



ERROR" CAUSES INT. RO. 



/DCLB "CLP ALL" 

/SET INT, ENABLE "LOAD COIHAND" 
/SET "SELECT", LOAD DISK ADDRESS 
/WAIT FOB EXPECTED INT. 
/ERROR, NO INT, 

/CLEAR TNT. "LOAD COMMAND" 

/O.K. INT, NORKED 
/ERROR, SELECT ERROR INT, 
/SCOPE LOOP POINTER 
/TEXT POINTER 

BESS" CAUSES 
WITH DISK SKIP 



/DCLR "CLP ALL" 
/LOAD DISK AND GO 
/DSKP DISK SKIP lOT 
/ERROR, NO SKIP 
/DSKP DISK SKIP lOT 
/ERROR, NO SKIP 
/STATUS O.K. 
/ERROR, STATUS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



CAUSES "DSKP" TO SKIP ON ERPOP 



/DCLR "CLP ALL" 

/LOAD DISK ADDRESS AND GO 

/DSKP "SKIP ON ERROR" 

/ERROR, NO SKIP 

/CLEAR SKIP 

/DSKP 

/0,K. 4096 LOOPS 

/ERROR, "OSKP SKIP" 

/SCOPE LOOP POINTER 

/TEXT POINTER 



CAUSES "DSKP" TO SKIP ON ERROR 



SEQ 0074 





PAL10 


VI42A 


7-HAR. 


77 


13l!5 PACE 


2679 


2337 


4453 




CLRALL 




2600 


2340 


1071 




IAD 


K0006 


36111 


2341 


3356 




DCA 


T60E*2 


2662 


2342 


1102 




TAD 


K0400 


3683 


2343 


4450 




LDCMD 




2684 


2344 


4452 




LDADD 




2685 


2J4S 


4447 




DSKSKP 




3686 


2346 


5354 




JMP 


T6BE 


2687 


2347 


1072 




TAD 


K0007 


2688 


2350 


3356 




DCA 


T60E*? 


2689 


2351 


4437 




lONWAT 




3690 


2352 


7610 




SKP CLA 




2691 


2353 


443! 




NFRROR 




2692 


2354 


4436 


I60E, 


FRBOB 




2693 


2355 


2336 




TST60 




2694 


2356 


0006 




0006 




2695 






/ 






2696 


2357 


5760 




JMP I 


■ «1 


2697 


2360 


2400 




IST61 




2698 




2400 


PAGE 






2699 






/ 






3700 






/VERIFY THAT "DBL" CAUSES AN 


3701 






/ 






2703 


2400 


7301 


ISI61, 


CLA CLL 


lAC 


2703 


2401 


4453 




CLRALL 




2704 


2403 


1073 




TAD 


K0007 


2705 


2403 


3222 




DCA 


T61Et2 


2706 


2404 


1102 




TAD 


K0400 


2707 


2405 


4450 




LDCMD 




2708 


2406 


4444 




ENMANl 




2709 


2407 


1103 




TAD 


K1000 


3710 


3410 


445! 




LDMAN 




2711 


2411 


4437 




lONWAT 




2712 


2412 


5320 




JMP 


T61E 


2713 


2413 


!"71 




TAD 


K0006 


3714 


2414 


3222 




DCA 


I61E*J 


2715 


2415 


4447 




DSKSKP 




27(6 


2416 


761"» 




SKP CLA 




2717 


2417 


443! 




NFRROR 




2718 


242t) 


4436 


T61E, 


ERROR 




2719 


2421 


2400 




TST61 




2720 


2422 


0007 




0007 




2721 






/ 






2722 






/VERIFY 


THAT MAINTENANCE DOES 


2723 






/DRIVE 


STATUS ERROR SKIP 


2724 






/ 






2725 


3433 


7301 


TST62, 


CLA CLL 


I AC 


3726 


2424 


4453 




CLRALL 




2727 


2425 


4447 




DSKSKP 




2728 


2436 


7610 




SKP CLA 




2739 


3427 


5244 




JMP 


T62E 


3730 


2430 


7136 




CI.A CLL 


C"L RTL 


3731 


2431 


44S3 




CLRALL 




2732 


2432 


4«47 




DSKSKP 




3733 


2433 


5744 




JMP 


T62E 



5-11 



/DCLR "CLR ALL" 

/SETUP TEXT POINTER 

/SET INT, ENABLE 
/LOAD DISK AND GO 
/OSKP DISK SKIP 
/ERROR, NO SKIP 

/SETUP TEXT POINTER 
/WAIT FOR INT, 
/ERROR, NO INT, OCCURRED 
/SKIP AND INI, 0,K, 
/ERROR, DSKP OR INI, 
/SCOPE LOOP POINTER 
/MODIFIED TEXT POINTER 

/TO NEXT TEST 



INT. THEN SKIP 



/DCLR "CLR ALL" 

/SETUP TEXT POINTER 

/SETUP TNT. ENABLE 
/ENTER MUNTENANCE MODE 

/SET "DRl" OMAN 
/WAIT FOR INT, 
/ERROR, NO INT. 

/SETUP Text pointfr 

/"DSKP" SHOULD SKIP 
/ERROR, NO SKIP 
/O.K. 4096 LOOPS 
/ERROR, SKIP OR INT. 
/SCOPF LOOP POINTER 
/MODIFIED TEXT POINTER 



/CLEAR CONTROL 
/mSK SKIP 
/O.K. NO SKIP 
/ERROR, SKIP 

/RECALIBRATE 
/DISK SKIP 
/FRPOR, NO SKIP 



SEQ 0075 





PAL 10 


V142A 


7-HAB-' 


n 
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12 


37J4 


2434 


4444 




ENMANl 




/SET HAIN 


J735 


243S 


4447 




DSKSKP 




/DISK SKIP 


2716 


2436 


7610 




Slip CLA 




/O.K. NO SKIP 


S737 


2437 


5244 




JMP 


I62E 


/ERROR, SKIP 


2798 


2440 


7326 




CLA CLL 


CHL RTL 




2739 


2441 


4453 




CLRALL 




/BECALIBRATt 


2740 


2442 


4447 




DSKSKR 




/DISK SKIP 


J741 


2443 


4«35 




NERROR 




/O.K. 4096 LOOPS 


2742 


2444 


4436 


T62E:, 


ERROR 




/ERROR, DISK SKIP 


2743 


2445 


2423 




TSI62 




/SCOPE LOOP POINTER 


2744 


2446 


9006 




0006 




/TEXT POINTER 


274S 






/ 








2746 






/VERIFV THAI "RECALIBRATE" THEN 


DCLR DOES SET BUSY 


J747 






/AND DRIVE STATUS ERROR 




2748 






/ 








2749 


2447 


7101 


TST63, 


CLA CLL 


lAC 




27Se 


2450 


4453 




CLRALL 




/CLEAR CONTROL 


27S1 


2451 


1177 




TAD 


STCON 


/EXPECTED STATUS 


27S2 


2452 


3163 




DCA 


GDREC2 


/SETUP COHpARE REGISTER 


2753 


2453 


4442 




RDSTAT 




/READ STATUS 


27S4 


2454 


4440 




ACC"Pl 




/CHECK RESULTS 


2755 


2455 


7610 




SKP CLA 




/STATUS O.K. 


2756 


2456 


5104 




JMP 


I63E 


/ERROR, STATUS 


2757 


2457 


4444 




EKMANl 




/ENTER MAINTENANCE 


2758 


2460 


7126 




CLA CLL 


CHL RTL 




2759 


2461 


1177 




TAD 


STCON 


/EXPECTED STATUS 


2760 


2462 


3161 




DCA 


GDRES2 


/SETUP COMPARE REGISTER 


2761 


2463 


7126 




CLA CLL 


CHL RTL 




2762 


2464 


4451 




CLRALL 




/"RECALIBRATE" DCLR 


2763 


2465 


4442 




RDSTAT 




/READ STATUS 


2764 


2466 


4440 




ACCNPl 




/CHECK RESULTS 


2765 


2467 


7610 




SKP CLA 




/STATUS O.K. 


2766 


2470 


5104 




J«P 


T63E 


/ERROR, STATUS 


2767 


2471 


1151 




I«D 


REG! 




2768 


2472 


0110 




AND 


K7776 


/MASK OUT CLEAR CONTROL 


3769 


2473 


4451 




CLRALL 




/DCLR 


277* 


2474 


7326 




CLA CLL 


CHL RTL 




2771 


2475 


1177 




IAD 


STCON 




2772 


2476 


1077 




IAD 


K0100 


/BUST BIT 


2773 


2477 


3169 




DCA 


GDREG2 


/SETUP COMPARE REGISTER 


2774 


2500 


1154 




TAD 


REG2 




2775 


2501 


4442 




RDSTAT 




/READ STATUS REGISTER 


2776 


2502 


4440 




ACC«P1 




/CHECK RESULTS 


2777 


2501 


4435 




NERROR 




/STATUS, 0,K, 4096 LOOPi 


2778 


2504 


4436 


T63E, 


ERROR 




/ERROR, RECALIBRATE 


2779 


2505 


J447 




TST63 




/SCOPE LOOP POINTER 


2780 


2506 


5000 




5000 




/TEXT POINTER 


2781 






/ 








2782 






/VERiri 


THAT "RECALIBRATE" THEN 


"DRL" RESULTS IN DRL. 


2783 






/DRIVE 


STATUS, AND TRANSFER DONE 


2794 






/ 








2785 


2507 


7301 


TST64, 


CLA CLL 


lAC 




2786 


2510 


4453 




CLRALL 




/CLEAR CONTROL 


2787 


2511 


1177 




IAD 


STCON 




2788 


2512 


3161 




DCA 


GDREG2 


/SETUP COMPARE REGISTER 



SEQ 0076 





PAL10 


V142A 


7-HAR. 


77 


11155 


2789 


2511 


4442 




RDSTAT 




2790 


2514 


4440 




ACCHpl 




2791 


2515 


7610 




SKP CLA 




2792 


2516 


5944 




JMP 


T64E 


2793 


2517 


4444 




ENHANl 




2794 


2520 


7126 




CLA CLL 


CML RTL 


2795 


2521 


1177 




IAD 


STCON 


2796 


2522 


9161 




DCA 


GDREG2 


2797 


2521 


7926 




CLA CLL 


CML RTL 


2798 


2524 


4459 




CLRALL 




2799 


2525 


4442 




RDSTAT 




2800 


2526 


4440 




ACCMPI 




2801 


2527 


7610 




SKP CLA 




2802 


2530 


5144 




JMP 


I64E 


2801 


2531 


7126 




CLA CLL 


CML RTL 


2804 


2532 


1177 




TAD 


STCON 


2805 


2593 


1106 




IAD 


K4000 


2806 


2514 


1070 




IAD 


K0004 


2807 


2515 


1161 




DCA 


GDRE02 


2808 


2596 


110] 




TAD 


K1000 


2809 


2517 


4455 




LOMAN 




2810 


2540 


1151 




TAD 


REGl 


2811 


2541 


4442 




RDSTAT 




2812 


2542 


4440 




ACCHPl 




2811 


2541 


4495 




NERROR 




2814 


2544 


4416 


T64E, 


ERROR 




2815 


2545 


2507 




ISI64 




2816 


2546 


5000 




5000 




2817 






/ 






2818 


2547 


5750 




JMP I 


.*\ 


2819 


2550 


2600 




IST65 




2820 






/ 






2821 




2600 


PACE 






2822 






/ 






2821 






/VERIFY THAT "RECALIBRA1 


2824 






/DRIVE 


STATUS AND BUSY ! 


2825 






/ 






2826 


2600 


7101 


TST65, 


CLA CLL 


lAC 


2827 


2601 


4451 




CLRALL 




2«je 


2602 


1177 




TAD 


STCON 


2829 


260] 


1161 




DCA 


GDREG7 


2830 


2604 


4442 




RDSTAT 




2831 


2605 


4440 




ACCMpl 




2832 


2606 


7610 




SKP CLA 




2813 


2607 


5231 




JMP 


T65E 


2834 


2610 


4444 




ENMANl 




2835 


2611 


7126 




CLA CLL 


CML RTL 


2836 


261? 


1177 




TAD 


STCON 


2837 


2611 


3161 




DCA 


GDREG2 


2819 


2614 


7126 




CLA CLL 


CML RTL 


2919 


2615 


4*51 




CLRALL 




2840 


2616 


4442 




RDSTAT 




3841 


2617 


4440 




ACCMPI 




2942 


2620 


7610 




SKP CLA 




2941 


2621 


5211 




JMP 


T65E 
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/READ STATUS 
/CHECK RESULTS 
/STATUS O.K. 
/ERROR, STATUS 
/FNTER MAINTENANCE 

/EXPECTED STATUS 
/SETUP COMPARE REGISTER 

/DCLR 

/READ STATUS 
/CHECK RESULTS 
/STATUS O.K. 
/ERROR, STATUS 



/EXPECTED STATUS 

/ENABLE SHIFT 

/LOAD MAINTENANCE SET DRL 

/READ STATUS REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, STATUS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/TO NEXT TEST 



"DLCA" SETS 
STATUS REGISTER 



/CLEAR CONTROL 
/EXPECTED STATUS 
/SETUP COMPARE REGISTER 
/READ STATUS 
/CHECK RESULTS 
/STATUS O.K. 
/ERROR, STATUS 
/ENTER MAINTENANCE 

/EXPECTED STATUS 
/SETUP COMPARE REGISTER 



/READ STATUS 
/CHECK RESULTS 
/STATUS 0,K, 
/ERROR, STATUS 



V143A 



]84« 

2«4S 

2846 

2847 

2848 

2849 

28Se 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2«»» 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

287] 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2811 

2882 

288] 

2884 

2885 

28 9'. 

28S ' 

2mi.- 

2B8V 
2898 
2891 
2892 
289) 
2894 
2895 
2896 
2897 
2898 



2622 
2623 
2624 
2625 
2626 
2627 
26)e 
2631 
2632 
2633 
2634 
2635 



2636 
2637 
264» 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
26Se 
2651 
2652 
2653 
2654 
2655 
2656 



2657 
266C 
266) 
2662 
2663 
2664 
2665 
2666 
2667 
267e 
2671 
2672 
2671 
2674 
2675 
2676 



7326 
1877 
1177 
3163 
4451 
1154 
4442 
444« 
4435 
4436 
2600 
5800 



73B1 
4453 
4444 
7326 
445] 
7326 
1077 
1177 
3163 
4450 
1154 
4442 
4440 
4435 
4436 
2636 
5000 



7301 
4453 
4444 
7326 
1077 
1177 
3163 
7326 
4453 
44S2 
4442 
4440 
4435 
4436 
2657 
5000 



Ctrl CLL CHL PIL 



T»D 

DC» 

LDCUR 

T«D 

P05TAT 

ACC"<P1 

NEBROR 

ERROR 

TST65 

5000 



K0100 
STCON 
GDRFG7 

REG2 



/EXPECTED STATUS 

/LOAD CURRENT ADDRESS 

/READ STATUS REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, STATUS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POIKTEh 



/VERITY THAT "RECALIBPATE" THEN 

/DOES SET BUSI ERROR IN STATUS 

/ 

TST66, CLA CLL lAC 

CLRALL 

ENMANl 

CLA CLL CML RTL 

CLRALL 

CLA CLL CML RTL 

TAD K0100 

TAD SICON 

DCA GDRCG2 

lOCXD 

IAD REG2 

R05TAT 

ACCHPl 

NERROR 

ERROR 

TST66 

5000 



"DLDC" 



/CLEAR CONTROL 
/ENTER HAINTENANCE 



/EXPECTED STATUS 

/LOAD COMMAND REGISTER 

/READ STATUS REGISTER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 
/ERROR, STATUS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 



TST67, 



/VERIFY THAT RECALIBRATE THEN DLAG RESULTS IN 

/BUSY AND DRIVE STATUS ERROR, 

/ 

CLA CLL lAC 

CLRALL 

ENMANl 

CLA CLL CML RTL 

TAD K0100 

TAD STCON 

DCA GDREG? 

Clh - .L CML R'l . 

CI.H»ijL 

LHADD 

RDSTAT 



/CLEAR CONTROL 
/ENTER MAINTENANCE 



/EXPECTED STATUS 
/SETUP EXPECTED COMPARE 
/ENABLE RECALIBRATt: 



ACCMPl 

NERROR 

ERROR 

TST67 

5000 



/LOAD DISK ADDRESS 

/READ STATUS 

/CKECK RESULTS 

/O.K. 4096 LOOPS 

/ERROR, BUSY OR DRIVE STATUS 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT SKIP OCCURBES ON BUSY ERROR 





PALie 


V142A 


7-MAR> 


77 


1)155 


2899 






/ 






2900 


2677 


7301 


TST68, 


CLA CLL 


lAC 


2901 


2700 


445) 




CLRALL 




2902 


2701 


4447 




DSKSKP 




2903 


2702 


7610 




5KP CLA 




2904 


2703 


531! 




JMp 


T6eE 


2905 


2704 


4444 




ENMANl 




2906 


2705 


7326 




CLA CLL 


CML RTL 


2907 


2706 


445) 




CLRALL 




2908 


2707 


4451 




LDCUR 




2909 


2710 


4447 




DSKSKP 




2910 


2711 


5)15 




JMP 


T68E 


2911 


2712 


4447 




DSKSKP 




2912 


2713 


5315 




JMP 


T6BE 


2913 


2714 


4435 




NFPROR 




2914 


2715 


44)6 


T68E, 


ERROR 




2915 


2716 


2677 




TST68 




2916 


2717 


0006 




0006 




2917 






/ 






2918 






/VERIFY THAT DCLR CLEARS 


2919 






/ 






2920 


2720 


7301 


TST69, 


CLA CLL 


I AC 


2921 


2721 


4453 




CLRALL 




2922 


2722 


4444 




ENMANl 




2923 


2723 


7)26 




CLA CLL 


CML RTL 


2924 


2724 


4453 




CLRALL 




2925 


2725 


7326 




CLA CLL 


CML RTL 


2926 


2726 


U77 




TAD 


SICON 


2927 


2727 


1106 




IAD 


K4000 


2928 


2730 


1070 




TAD 


K0004 


2029 


27)1 


3163 




DCA GDREG2 


2930 


2732 


1103 




TAD 


K1000 


2931 


27)3 


4455 




LDMAN 




29)2 


2734 


1153 




IAD 


REGl 


2<>33 


2735 


4442 




pnSTAT 




2934 


2736 


4440 




ACC"P1 




2935 


2737 


7610 




SKP CLA 




2936 


2740 


5350 




JMP 


T69E 


2937 


2741 


4453 




CLRALL 




2939 


2742 


1177 




TAD 


SICON 


7939 


2743 


)163 




DCA gdreg: 


2940 


2744 


1154 




TAD 


RE02 


2941 


2745 


4442 




RDSTAT 




2942 


2746 


4440 




ACCMPl 




2943 


2747 


4435 




NERROR 




2944 


J750 


4436 


T69E, 


ERROR 




2945 


2751 


2720 




I5T69 




2946 


2752 


5000 




5000 




2947 






/ 






2948 






/VERIFY 


THAT INTERRUPT OC 


2949 






/ 






2950 


2753 


7301 


TST70, 


Cti* CLL 


I AC 


2951 


2754 


445) 




CLRALL 




2952 


2755 


1142 




IAD 


K04e0 


2953 


2756 


4450 




Lnc"D 





PAGE 5-15 



/CLEAR CONTROL 
/OSKP 
/SKIP O.K. 
/ERROR, DISK SKIP 
/ENTER MAINTENANCE 

/DCLR 

/LOAD CURRENT ADDRESS 

/OSKP DISK SKIP 

/ERROR, NO SKIP 

/PSKP DISK SKIP 

/ERROR 

/O.K. 4096 LOOPS 

/ERROR, DSKP 

/SCOPE LOOP POINTER 

/TEXT POINTER 

ALL OF STATUS REGISTER 



/CLEAR CONTROL 
/ENTER MAINTENANCE 



/EXPECTED STATUS 

/ENABLE SHIFT 

/LOAD MAINTENANCE SET DRL 

/READ STATUS REGISTER 

/CHECK RESULTS 

/O.K 

/ERROR 

/DCLR 

/SETUP COMPARE REGISTER 

/READ STATUS 
/CHECK RESULTS 
/O.K. 4'»96 LOOPS 
/ERROR, STATUS REGISTER 
/SCOPE LOOP POINTER 
/TEXT POINTER 

CURES ON BUSY ERROR 



/CLEAR CONTROL 
/ENABLE INT. BIT 
/LOAD COMMA^JD 





PKL10 


VI4J* 


7-MAP 


-77 


UIS5 PAGE 


5-16 


2954 


2757 






ENMANl 




/ENTER MAINTENANCE 


29S: 


2760 






Ct.A CIL 


CML RTL 




29S6 








CLPALL 




/DCLR 


2957 








lONWAT 




/WAIT FOR INT, 


295» 








SKP CLA 




/INI. O.K. 


2959 








JMP 


I70E 


/ERROR, DISK INT. 


2960 








CLPALI- 




/CLEAR STATUS 


2961 








lONUAI 




/WAIT FOR INTERRUPT 


2962 








JMP 


T7BE 


/ERROR, NO INT. 


2963 








CLPALL 




/DCLR 


2964 








lONWAT 




/WAIT FOR INT, 


2965 








SKP CLA 




/INT. 0,K, 


2966 








NERBOB 




/O.K. 4096 LOOPS 


2967 






T70E, 


ERROR 




/ERROR, INT, 


2968 








TST70 




/SCOPE LOOP POINTER 


2969 




0007 




0007 




/TEXT POINTER 


297B 






/ 








2971 






/VERIFY THAI "RDBUF", "OLC«", 


"DRST", "OLAG" 


2972 






/OP •! 


BSKP" DOES 


NOT AFFECT STATUS REGISTER. 


297} 






/ 








2974 


2777 




TSI71 


, CLA Ctl 


lAC 




2975 


3000 






CLRALL 




/CLEAR CONTROL 


2976 


3001 






ENMANl 




/ENTER MAINTENANCE 


2977 


3002 






CLA CLL 


CML RTL 




2979 


3003 






CLRALL 




/DCLR 


2979 


3004 






TAD 


Ki0e0 


/ENABLE SHIFT 


2990 


3005 






LDMAN 




/LOAD MAINTENANCE 


2981 


3006 






CLA CLL 


CML RTL 




2982 


3007 






IAD 


STCON 




2983 


3010 






IAD 


K0004 




2984 


3811 






TAD 


K4000 


/EXPECTED STATUS 


2985 


3012 






DCA 


GDPEG2 


/SETUP COMPARE REGISTER 


2986 


3013 






RDBUr 




/READ BUFFER 


2987 


3014 






IAD 


REGl 




2988 


3015 






RDSTAT 




/READ STATUS 


2989 


3016 






IAD 


REG2 




2990 


3017 






IDCUR 




/LOAD CURRENT ADDRESS 


2991 


3020 






IAD 


REGl 




2992 


3021 






D9KSKP 




/OSKP 


2993 


3022 






NOP 






2994 


3023 






LDADD 




/LOAD DISK ADDRESS 


2995 


3024 






IAD 


REGl 




2996 


3025 






LDBUF 




/LOAD BUFFER REGISTER 


2997 


3026 






IAD 


REGS 




2998 


3027 






RDSTAT 




/READ STATUS 


2999 


3030 






ACCHPl 




/CHECK RESULTS 


30«0 


3031 






SKP CLA 




/STATUS O.K. 


3001 


3032 






JMP 


T71E 


/ERROR, STATUS 


3002 


3033 






CLRALL 




/CLEAR STATUS 


3003 


3034 






IAD 


STCON 


/EXPECTED STATUS 


3004 


3035 






DCA 


GDREG2 


/SETUP COMPARE REGISTER 


3005 


3036 






BDSTAT 




/READ STATUS 


3006 


3037 






ACCMPl 




/CHECK RESULTS 


3007 


3040 






NERROR 




/O.K. 4096 LOOPS 


3008 


3041 




T71E, 


ERROR 




/ERROR, STATUS REGISTER 





PAL10 


Vt42A 


7-MAR-77 


13155 P, 


3009 


3042 


2777 




TST71 




3010 


3043 


5000 




5000 




3011 






/ 






3012 






/VEPIFJ 


• THAT "WORD COUNT" 


3013 






/TRANSFER DONE 


ONLY AFTER 


3014 






/TRANSFER DONE 


SHOULD SET 


3015 






/OF THE 


: 256 TH. 


WORD. 


3016 






/ 






3017 


3044 


7240 


TSI7J, 


CLA CMA 




3018 


304S 


3153 




DCA 


REGl 


3019 


3046 


7301 




CLA CLL 


lAC 


3020 


3047 


4453 




CLRALL 




3021 


3050 


1177 




TAD 


STCON 


3022 


3051 


3163 




DCA 


GDREG2 


3023 


3052 


7326 




CLA CLL 


CML RTL 


3024 


3053 


1136 




TAD 


M12 


3025 


3054 


3156 




DCA 


TCNTRl 


3026 


3055 


1143 




TAD 


M255 


3027 


3056 


3157 




DCA 


ICNTR2 


3028 


3057 


4444 




ENMANl 




3029 


3060 


1136 


T72P, 


IAD 


M12 


3030 


3061 


3160 




DCA 


TCNIR3 


3031 


3062 


1077 




TAD 


K0100 


3032 


3063 


4455 




LDMAN 




3033 


3064 


2<60 




ISZ 


TCNTB3 


3034 


3065 


5S63 




JMP 


.-2 


3035 


3066 


4456 




RDBUF 




3036 


3067 


4442 




RDSTAT 




3037 


3070 


4440 




ACCMPl 




3038 


3071 


761" 




SKP CLA 




3039 


3072 


5315 




JMP 


I72E 


3040 


3071 


2157 




ISZ 


TCNTR2 


3041 


3074 


5260 




JMP 


T72R 


3042 


3075 


1077 




TAD 


K0100 


3043 


3076 


4455 




LDMAN 




3044 


3077 


2156 




ISZ 


ICNTRl 


3045 


3100 


5276 




JMP 


.-2 


3046 


3101 


4442 




RDSTAT 




3047 


3102 


4440 




ACCMPl 




3048 


310] 


7610 




SKP CLA 




3049 


3104 


5315 




JMP 


T72E 


J050 


3105 


7330 




CLA CLL 


CML PAR 


3051 


3106 


1177 




TAD 


STCON 


3052 


3107 


3163 




DCA 


GDPEG? 


)053 


3110 


1077 




IAD 


K010a 


3054 


3111 


4455 




LDMAN 




3055 


3112 


4442 




RDSTAT 




3056 


3113 


4440 




ACCMPl 




3057 


3114 


4435 




NFRBOR 




3058 


3115 


4436 


T72E, 


ERROR 




3059 


3116 


3044 




TST72 




3060 


3117 


5000 




5000 




3061 






/ 






3062 


3120 


5721 




JMP I 


.♦1 


3063 


3121 


3200 




TST73 





/SCOPE LOOP POINTER 
/TEXT POINTER 

OVERFLOWS AND SETS 
256 C12 BIT COUNTS), 
ON THE 11 TH, SHIFT 



/SET FOR 1 PASS PER TEST 
/DCLR "CLP ALL" 
/SETUP COMPARE REGISTER 



SEO 0081 



/TWO 



/FOP FINAL WORDl 



/FOR ONE LESS THAN "LAST HOBD" 
/ENTER MAINTENANCE MODE 

/FOP EACH 12 BIT WORD 
/ENABLE BITS TOSHIFT SILO 
/LOAD MAINTENANCE 
/SKIP ON EVERY "12 BIT WORD" 

/THIS SHOULD PREVENT A "DRL" 
/GET STATUS 
/CHECK RESULTS 

/STATUS ERROR 

/COUNT 255 "12 BIT WORDS" 
/ENABLE SHIFT SILO 
/LOAD MAINTENANCE 
/BIT COUNTER 
/COUNT U BITS 
/READ STATUS 
/CHECK RESULTS 
/STATUS 0,K. 
/ERROR, STATUS 



/SETUP COMPARE REGISTER 

/SHIFT IN LAST WORD 

/READ STATUS 

/ONtY TRANSFER DONE 

/STATUS OK 

/ERROR, 12 BIT COUNTER 

/SCOP LOOP 

/TEXT POINTER 



/TO NFXT TEST 



rkH2 VI43« 



3864 






1 




3H65 




3280 


PACE 




3066 






/ 




3e«7 






/VERIFl 


THAI DCLP DOES CLEAR 12 


38(8 






/ 




3069 


3308 


7248 


IST73, 


CLA CMA 


3878 


3381 


3153 




DCA BEG) 


3871 


3202 


1143 




TAD H355 


3872 


3203 


3161 




DCA ICNTR4 



SEQ 0882 



BIT COUNTER 



/SET FOR 1 PASS PER TEST 
/SETUP COUNTER 



PAL10 V142A 7-MAP.77 
T73R1, 



T73R2. 



1315! PACE 7 



3873 


3384 


7381 


3874 


3389 


4453 


307S 


3286 


1161 


3076 


3307 


3156 


1877 


3210 


1136 


3878 


3311 


3157 


3879 


3212 


4444 


3888 


3313 


1077 


3881 


3214 


4455 


3882 


3315 


3157 


3883 


3316 


5214 


3084 


3317 


4456 


3089 


3338 


2156 


3886 


3321 


5310 


3887 


3233 


7381 


3088 


3323 


4453 


3889 


3324 


1177 


3890 


3325 


3163 


3091 


3226 


1136 


3093 


3227 


3156 


3893 


3230 


114) 


3894 


3231 


3157 


309S 


3232 


4444 


3096 


3333 


1136 


3897 


3234 


3160 


3898 


3335 


)87' 


3899 


3336 


4459 


3180 


3337 


2160 


3181 


3240 


9236 


3103 


3241 


4456 


3103 


3342 


4442 


3104 


3243 


4«40 


3105 


3344 


7618 


3106 


3345 


9366 


3107 


3346 


2197 


3108 


3247 


9233 


3109 


3298 


7338 


3118 


3251 


1177 


3111 


3392 


3163 


3113 


3293 


1077 


3113 


3294 


4455 


3114 


3255 


2156 


3115 


3356 


5254 


3116 


3257 


4442 


3117 


3260 


4448 


3118 


3361 


7610 


3119 


3362 


5266 


3128 


3263 


2161 


3121 


3264 


5284 


3122 


3269 


4435 


312) 


3366 


4436 


3124 


3367 


3300 


3125 


3378 


9088 


3126 






31J7 







T73R3, 



T73E, 



CL* CLL 


I AC 


CLRALL 




TAD 


TCNTR4 


DCA 


TCNTRI 


TAD 


M12 


DCA 


TCNTR2 


ENMANl 




TAD 


K010e 


LDMAN 




ISZ 


TCNTR3 


JHP 


.-2 


RDBUr 




I5Z 


TCNTRI 


JMP 


n3R2 


CIA CLL 


lAC 


CIjRALL 




TAD 


STCON 


DCA 


SDREG2 


TAD 


M12 


DCA 


TCNTRI 


TAD 


H255 


DCA 


TCNTRJ 


ENMANl 




TAD 


M12 


DCA 


TCNTR3 


TAD 


K0180 


LDMAN 




ISZ 


TCNTRI 


JMP 


.•2 


RDBtIF 




RDSTAT 




ACCMPl 




SKP CLA 




JMP 


T73E 


ISZ 


TCNTR2 


JHP 


T73R3 


CLA CLL 


CML PAR 


TAD 


STCON 


DCA 


GDRE02 


TAD 


K8180 


LDMAN 




ISZ 


TCNTRI 


JMP 


.-2 


RDSTAT 




ACCMpl 




SKP CLA 




JMP 


T73E 


ISZ 


TCNTR4 


JMP 


I73B1 


NERROR 




ERROR 




ISI73 




5808 





SEQ 8083 



/DCLR "CLR ALL" 



/12 BIT WORD COUNTER 
/ENTER MAINTENANCE MODE 
/ENABLE SHIFT 
/LOAD MAINTENANCE 
/COUNT SHIFTS 
/MORE TO GO 
/PREVENT DRL 
/DO IT 12 TIMES 
/MORE 12 BIT COUNTS 
/ENABLE CLEAR CONTROL 
/AND CLEAR THE COUNTER 

/SETUP COMPARE REGISTER 

/FOR FINAL WORDI 

/FOR ONE LESS THAN "LAST WORD" 
/ENTER MAINTENANCE MODE 

/FOR EACH 12 BIT WORD 
/ENABLE BITS TOSHIFT SILO 
/LOAD MAINTENANCE 
/SKIP ON EVERT "12 BIT WORD" 

/THIS SHOULD PREVENT A "DRL" 
/GET STATUS 
/CHECK RESULTS 

/STATUS ERROR 

/COUNT 255 "12 BIT WORDS" 

/SETUP COMPARE REGISTER 
/SHIFT IN LAST WORD 



/READ STATUS 

/ONLY TRANSFER DONE 
/STATUS O.K. 
/ERROR, STATUS 
/UPDATE SPECIAL COUNTER 
/MORE TO TEST 

/STATUS OK 

/ERROR, 12 BIT COUNTER 

/SCOP LOOP 

/TEXT POINTER 



' PAlia V14JA 7-MAR-77 13155 PAGE 7-1 

'<" /VEFlrj THAT 12TH BIT O.K. H DOtS INHIBIT ^^^ "f"* 

'<" /SETTING DB CONTl.l. THIS IS WHAT STOPS 

"'" /HALF BLOCK DATA BREAKS ON A BEAD BREAK. 

3131 / 

SHJ 3J71 7381 T5T74, CLA CLL lAC 

'•" "'; Ji" C>'l'«L'' /CLEAR CONTROL 

3 35 All nil ?'S?«n "'""' '""'^ ^'■°" TRANSFERS 

nil an il!! ^"^ " 't'O*" COMMAND 

Jll« 3275 7340 CLA CLL CMA 

V,V, lilt V.V. "'=* ""' '"f"" '•0" 1 "ss 

313« 3J77 1141 TAD HUB 

V.il 3ISf ?!?! '"^* ICNTRl /COUNTER FOR 129 WORDS 

'If "SJ **** , ENMANl /ENTER MAINTENANCE MODE 

ll« ?"! !!» ?;:?!;, ?=aS S?r" '""' ^o"^*" """" 

mJ! lilt nil T74R,. ?£IcLl""" /.2 bit WORD COUNTER 

3145 3306 1»77 UD K0le0 

3146 3307 4455 LDMAN 

3147 3Sie 2157 IS! TCNTR2 

3148 3311 5307 JMP ..J 

3149 3312 4456 RDBUF 

3150 3313 4440 ACCMpl 

3151 3314 7610 gKP CLA 

3152 3315 5340 JMP T74E 



/ENABLE SHIFT 
/LOAD MAINTENANCE 



/READ LOWER BUFFER 
/CHECK RESULTS 
/DATA O.K. 
/ERROR 



1,11 UJS l\lt '" """' '"(INT 12l> WORDS 

III* "»' 5'»2 JHP T74RI /MORE TO GO 

3155 3330 1141 TAD M128 

3156 3321 3156 DCA TCNTRl 

3157 33J2 1136 T74R3, TAD MIJ 

3158 3323 3157 DCA TCNTR2 

3159 3324 7326 CLA CLL CML RtL 

3160 3325 1077 TAD K01{|0 

3161 3326 4455 LDMAN 

3162 3327 2157 Igz TCNTRJ 

3163 3330 5326 JMP ..2 

1,11 nil IJ?! ACCMPl /CHECK RESULTS 

3166 3333 7610 SKP CLA 

3167 3334 5340 JMp T74E 



/SETUP COUNTER 

/SETUP BIT COUNTER 

/ENABLE SHIFT 
/LOAD MAINTENANCE 
/COUNT BITS 
/MORE TO 00 



/DATA O.K. 

/ERROR 

/UPDATE COUNTER 

/TEST 128 TIMES 

/TO NEXT TEST 

/ERROR, 128 WORD 

JnJ n« 4405 mi* '"""'^ '■»<"' '■""TER 

Ills JJ42 4(09 4405 /TEXT POINTER 



3169 3335 2156 igz ICNTRl 

3169 3336 5322 JMP T74R3 

3170 3337 4435 NERROR 

3171 3340 4436 I74E, ERROR 

3172 3341 3271 T8I74 



3174 



/TEXT POINTER 



3175 3343 5744 JMP I ,+l ,rn NEXT TrST 

3176 3344 3400 TST75 ''" 

3177 / 

''!' /VERIFY THAT TRANSFER DONE "ALONE" CAUSES 

31'9 /DSKP TO SKIP. 

3180 / 

3181 3400 PAGE 

3182 3400 7340 IST75, CLA CLL CMA 



PAL10 V142A 7-MAR.77 13l55 PAGE 7-2 

nil IZ V,ll 11'^ ,,, ;j=> 

nil mi tni 'a^' ,», /oclr -clr all. 

i\ii mi u\i ?ss ;?;"' '""^ "-"^ "*" """ «»'<■'" 

l\ll mi VM ^nJan, '""' /FINAL WORD 

319'l IVu ntl T75R. t"o M,2 ''"" "*""•'»-" """^ 

3192 3412 3160 

3193 3413 1077 

3194 3414 4455 
2160 
5214 
4456 RDBUF 



3192 3412 3160 DCA TCNTBJ ,,.-, =... . 

3193 3413 1077 „? Je^j' '"" »"" ""RD COUNTER 



LDMAN 



RQ. 



3195 3415 2160 m TCNIR, "'°*'' «"""»«''" 

3196 3416 5214 jup »^"IH3 

3197 34 7 4456 RDBUF '""" '' "' """"S 

3198 3420 4447 DSKsJp /PRFVENT "DRL- 

3199 34I1 7610 SK? ?LA if.T''° "" '"" ""'^ 

III' mi mi ill ir/,., '"-«. -kp 

"03 mt \i)\ ill n\i. 

320" llr. Ill' \ir TCNTR, /LOAD MAINTENANCE 

32%'? iin nn D^%KP •■' Ts.rh'.ir- """ 

mi ni? nil tV''/ /ERR0%/SsK% DID NOT SKIP 

im ml : ""• "t --o- --• "" ^°°-^ 

jJ[J /VEBFIFY THAI TRANSFER DONE CAUSES "INT. 

3216 3437 7340 IST76, CLA CLL CMA 

32'}J 34"? mi ?" CLL ?a"' 

3230 3443 1143 TAD M255 

iiv, mi mi ?;s i^r* /one less than -last word- 

J"J ?J1S ?!!J "" '"TR2 /FINAL word 

i??s Ail VAl "" '^"^^ /ENABLE INT. BIT 

" J ^SS^. '^0« """*"D REGISTER 

»27' "5'i mi T76R, ?;r' MU /r^R MAINTENANCE MODE 

nil III] \l*' SJ* :"TR3 /.,2 BIT" WORD COUNTER 

;"! \*li [III TAD KOIBO /ENABLE SHIFT SILO 

im mi mi iir tcntr, /-.oad maintenance 

mi mi mi z..r -^ --,-!:.,;-„?,'!" -- 

3234 3461 4437 

3235 3462 76|0 

3236 3463 5275 



/prevent "drl" 
/wait fop int. 

INT, 



»iT ?«: 2^5: :;s t «. ''''°'- '"'- "<="''" 
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1J3S 


3465 


5392 




JMp 


T76P 


3239 


3466 


1077 




TAD 


K0100 


3S4B 


3467 


4455 




LDMAN 




3541 


347e 


2157 




ISZ 


TCNTR? 


3?43 


3471 


5267 




JMP 


.•2 


H4J 


3472 


4437 




lONWAT 




3244 


3473 


7610 




5KP CbA 




324! 


3474 


4435 




KERROR 




3246 


3475 


4436 


T76E, 


ERROR 




3247 


3476 


3437 




TST76 




324» 


3477 


0007 




0007 




3249 






/ 






32!» 






/ 






3291 






/ 






32S2 






/ 






3293 






/VCRIFI 


"DATA BREAK" rROi 


3294 






/use DATA PATTERN enee Al 


3295 






/ 






3256 


3see 


7301 


T5T77, 


CLA CLL 


lAC 


3257 


35ei 


4451 




CLRALL 




3298 


3903 


4444 




ENMANI 




3299 


39B3 


1)75 




IAD 


HOMEHA 


3268 


3984 


1106 




TAD 


K4000 


3261 


3519 


4450 




LDCMD 




3263 


3506 


1193 




TAD 


REGl 


3263 


39B7 


7110 




CLL RAR 




3264 


isie 


7630 




SZL CliA 




3265 


3911 


7340 




CLA CLL 


CMA 


326b 


3512 


3163 




DCA 


GDREG3 


3267 


3913 


1163 




TAD 


GDREG2 


3268 


3914 


3000 




DCA 





3269 


3915 


7340 




CLA Ct,L 


CMA 


3270 


3916 


4451 




LDCUR 




3271 


3917 


4451 




UncUR 




3272 


3920 


1076 




TAD 


K0040 


3273 


3931 


4455 




LDMAN 




3374 


3933 


4496 




ROBUr 




3379 


3933 


4440 




ACCMPl 




3376 


3534 


4435 




NERROR 




3377 












3378 


3935 


4436 


T77E, 


ERROR 




3379 


3526 


3500 




TST77 




3V;.' 


3937 


4263 




4363 




331.5 






/ 

/VERIFY 


TH*T "DATA BkCAK' 


JJt-s 






/or CURRENT riELD, DO ' 


33B9 






/PATTERN "3535 AND 5353" 


3386 






/ 






3287 


3930 


7301 


TST7e, 


CIA CLL 


I AC 


3288 


3931 


4453 




CLRALL 




3289 


3933 


4444 




ENMANI 




3290 


393J 


1153 




TAD 


REGl 


3291 


3934 


7110 




CLL RAR 




3292 


3539 


7630 




SZL CLA 





/COUNT 255 WORDS 

/LOAD MAINTtNANCE 

/DO ONE MORE WORD 
/KAIT FOR EXPECTED INT, 
/ERROR, INT, DIDN'T OCCUR 
/O.K. 4096 LOOPS 
/ERROR, INT. 
/SCOPE LOOP POINTER 
/TEXT POINTER 



SEO 0086 



FROM CURRENT FIELD LOCATION e 
'77. "PO A WRITE" 



/DCLR 
/ENTER MAINTENANCE MODE 

/CURRENT FIELD BITS 
/ENABLE "WRITE" 
/LOAD COMMAND 



/"»KE "DATA WORD" 
/SETUP COMPARE REGISTER 

/STORE OUT BOUND DATA 

/SET CURRENT ADDRESS TO 7777 

/LOAD CURRENT ADDRESS TO 
/ENABLE "BREAK" 
/LOAD AND GO 
/READ DATA BUFFER 
/CHECK RESULTS 
/O.K. 4096 LOOPS 

/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



WORKS FROM LOCATION 
A WRITE" AND USE DATA 



/DCLR "CLR ALL" 
/ENTER MAINTENANCE MODE 
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3936 






TAD 


K2525 










3937 






TAD 


K2525 






/TAKE DATA WORD 




3940 






DCA 


GDREG2 






/SETUP COMPARE REGISTER 




3541 






TAD 


GDREG3 










3542 






DCA 









/STORE OUTBOUND DATA 




3543 






TAD 


HOHEMA 






/GET CURRENT FIELD BITS 




3944 






TAD 


K5000 






/GET "WRITE ENABLE BIT" 




3949 






LDCMD 








/LOAD COMMAND REGISTER 




3946 






TAD 


RES2 










3947 






LDCUR 




/SET 


CURRENT ADDRESS TO 7777 




3990 






LDCUR 








/LOAD CURRENT ADDRESS TO » 




3551 






TAD 


K0040 






/DATA BREAK ENABLE BIT 




3552 






LDMAN 








/LOAD AND GO 




3593 






RDBUF 








/READ DATA BUFFER 




3594 






ACC"Pl 




/CHECK 


RESULTS 




3995 






NERROR 








/O.K. 4096 LOOPS 




3556 




T78E, 


ERROR 








/ERROR, DATA BREAK 




3557 


3530 




TST7e 








/SCOPE LOOP POINTER 




3560 


4263 




4263 








/TEXT POINTER 








/ 


















/VERIFY THAT "DATA BREAK" WORK FROM 1 


LOCATION 7777 








/OF CURRENT FIELD, DO A 


WRITE AND 




USE DATA PATTERN 








/0000 


AND 7777. 
















/ 














3561 




TST79, 


CLA CLL 


lAC 










3562 






CLRALL 








/OCLR "CLR ALL" 




3563 






ENMANI 




/ENTER 


MAINTENANCE MODE 




3564 






TAD 


REGl 










3565 






CLL RAR 












3966 






SZL CLA 












3967 






CLA CLL 


CMA 






/MAKE DATA WORD 




3570 






DCA 


GDRE03 






/SETUP COMPARE REGISTER 




3571 






TAD 


GDREG2 










3572 






DCA I 


K7777 






/STORE OUTBOUND DATA 




3573 






TAD 


REGl 










3574 






LOCUR 




/SET 


CURRENT ADDRESS 




3579 






CLA CLL 


CMA 










3976 






LDCUR 








/LOAD CURRENT ADDRESS TO 7777 




3577 






TAD 


HOMEMA 






/CURRENT FIELD BITS 




3600 






TAD 


K4000 






/WRITE ENABLE 




3601 






LDCMD 








/LOAD COMMAND REGISTER 




3602 






TAD 


K004e 






/BREAK ENABLE BIT 




3603 






LDMAN 








/LOAD AND GO 




3604 






PDBUF 








/READ DATA BUFFER 




3605 






ACC"P1 




/CHECK 


RESULTS 




H»i 






NFRROP 








/O.K. 4096 LOOPS 




3607 




T79E, 


ERROR 








/ERROR, DATA BREAK 




3610 






IST79 








/SCOPE LOOP POINTER 




36H 






4363 








/TEXT POINTER 


























/ 


















/VERIFY "DATA BREAK" FROM LOCATION 7771 


' OF 








/CURRENT FIELD, 


DO A "WRITE" AND USF 


DATA 








/PATTERN ?535 AND 5252, 














/ 
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SEO 00B8 

3948 3612 7301 TSTSe, CLA CLL lAC 

3349 3613 4453 ClRALti /DCLR "CLB ALL" 

395B 3614 4444 ENHANl /ENTER MAINTENANCE MODE 

33;i 3615 1153 TAD REG! 

3352 3616 7110 CLL FAR 

I3S3 3617 7630 SZL CLA 

33S4 3620 1120 TAD K2525 

3J55 3621 1170 TAD K25J5 /MAKE DATA WORD 

3356 3622 3163 DCA GDREG2 /SETUP COMPARE REGISTER 

3357 3623 1163 TAD CDREC: 

39S« 3624 3532 DCA I K7777 /STORE OUTBOUND DATA 

3359 3625 1175 TAD HOMEHA /CURRENT FIELD BITS 

3360 3626 1126 TAD K5000 /FUNCTION "WRITE" 

3361 3627 4450 LOC"D /LOAD COMMAND 

3362 3630 11S« TAD REG2 

3363 3631 4451 LDCUR /SET CURRENT ADDRESS 

3364 3632 7340 CLA CLL CMA 

3365 3631 4451 LDCUR /LOAD CURRENT ADDRESS TO 7777 

3366 3634 1076 TAD Ke040 /BREAK ENABLE BIT 

3367 3635 4455 LOMAN /LOAD MAINTENANCE AND GO 

3368 3636 4456 RDBUF /READ BUFFER 

3369 3637 4440 ACCMpl /CHECK RESULTS 

3370 3640 4435 NERROR /O.K. 4096 LOOPS 

9371 3641 4436 IBBE, ERROR /ERROR, DATA BREAK 

9372 3642 3612 I8T8B /SCOPE LOOP POINTER 
9J73 3643 4263 4263 /TEXT POINTER 

9374 / 

9375 /VERIFY THAT "DATA BREAK" WORKS FROM CURRENT FIELD 

3176 /LOCATION 0, DO A "WRITE" AND USE ALL COMBINATION PATTERN 

JJT' /ALSO VERIFY THAT DATA IN LOCATION DOESN'T CHANGE 

3178 /ON A WRITE BREAK, (NOTEl DATA FROM LOCATION PUT 

3379 /IN INDICATOR "DTI") 

33«e / 

3181 3644 7301 TSI81, CLA CLL lAC 

3382 3645 4*53 CLRALL /OcLR "CLR ALL" 

3383 3646 4444 ENMANl /ENTER MAINTENANCE MODE 
3984 3647 1154 TAD RES2 

3385 3650 1163 DCA GDRE02 /SETUP COMPARE REGISTER 

3396 3651 1163 TAD GDRE02 

3387 3652 3000 DCA B /STORE OUTBOUND DATA 

3388 36S3 4451 LDCUR /SET CURRENT ADDRESS TO 
9589 3654 1175 TAD HOMEMA /CURRENT FIELD BITS 

3390 3655 1106 TAD K4000 /WRITE FUNCTION 
9391 36S6 44SB LDCHD /LOAD COMMAND 

3392 3657 IB76 TAD K0040 /DATA BREAK ENABLE BIT 

3391 3660 4455 LDMAN /LOAD AND GO 

3394 3661 4456 RDBUF /BEAD BUFFER 

3395 3662 4440 ACCMpl /CHECK RESULTS 

3396 3663 7610 SKP CLA 

3397 1664 5272 JMP I81E /ERROR 
9198 3665 1000 TAD B 

3399 3666 9173 DCA DTREG /SAVE IN CASE OF ERROR 

340B 3667 1171 TAD DTREG 

3401 3670 4440 ACCMPl /CHECK RESULTS 

3402 3671 4435 NERROR /O.K. 4096 LOOPS 
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3403 3672 4436 T81E, ERROR /ERROR, DATA BREAK 

3404 3673 1644 TSTRl /SCOPE LOOP POINTER 
1405 1674 4261 426! /TEXT POINTER 

3406 

3407 / 

3406 /VERIFY "DATA BREAK" FROM LOCATION 7777 OF 

1409 /CURRENT FIELD. DO A "WRITE" AND USE ALL COMBINATIONS, 

541B /ALSO VERIFY THAI OUTBOUND DATA IN LOCATION 7777 

'«>» /DOESN'T CHANGE WHEN DOING A WRITE BREAK, (NOTEl DATA FROM 

3412 /LOCATION 7777 PUT IN INDICATOR "DTl") 

3413 / 

3414 3675 7301 TST82, CLA CLL lAC 

3415 3676 4453 CLRALL /DCLP "CLR ALL" 

3416 3677 4444 ENMANl /ENTER MAINTENANCE MODE 
3417 

3418 3700 1153 TAD RESl 

3419 1701 1161 DCA GDREG2 /SETUP COMPARE REGISTER 
1420 1702 1161 TAD GDREG2 

3421 3701 3532 DCA I K7777 /STORE OUTBOUND DATA 

3422 3704 7140 CLA CLL CMA 

3423 3705 4451 LDCUR /SET CURRENT ADDRESS TO 77' 

3424 3706 1175 TAD HOMEMA /CURRENT FIELD BITS 
1425 3707 1126 TAD K5000 /WRITE FUNCTION 

3426 3710 4450 LnCMD /LOAD COMMAND 

3427 3711 1076 TAD KB040 /BREAK ENABLE BIT 

3428 3712 445! LDMAN /LOAD AND GO 

3429 3713 4456 RDBUF /READ BUFFER 

3430 3714 4440 ACCMpl /CHECK RESULTS 
3411 3715 7610 SKP CLA 

3432 3716 5324 JMP T82E /ERROR 

3433 3717 1532 TAD I K7777 

3414 3720 1173 DCA DTREG /SAVE INCASt OF ERROR 

3435 3721 1173 TAD DTREG 

3436 3722 4440 ACCMPl /CHECK RESULTS 

3437 3728 4435 NERROR /O.K, 4(196 LOOPS 
1438 3724 4436 T82E, ERROR /ERROR, DATA BREAK 

3439 3725 367' TST82 /SCOPF LOOP POINTER 

3440 3726 4263 4261 /TEXT POINTER 

3441 / 

3442 /VERIFY THAT "DCLR" CLEARS CURRENT ADDRESS 

1443 /FIRST DO A DATA BREAK FROM LOCATION 7776 

1444 /THEN "DCLR" FROM LOCATION 0000, DO "A "RITE" 

3445 /AND USE DATA PATTERN ALL COMBINATIONS, 

3446 / 

3447 3737 7301 TSI83, CLA CLL lAC 

3448 1710 4451 CLRALL /DCLR "CLR ALL" 

1449 1711 4«44 ENMANl /ENTER MAINTENANCE MODE 

1450 1732 1151 IAD BEGl 

1451 3711 1161 DCA GDREG2 /SETUP COMPARF, REGISTER 
3452 1714 1163 TAD GDREG2 

1451 1715 3510 DCA I K7776 /STORE OUTBOUND DATA BREAK 1 

3454 3716 1154 TAD REG2 

1455 3717 1000 DCA /STORE OUTBOUND DATA BREAK 2 

1456 1740 1175 TAD HOMEMA /CURRENT FIELD BITS 

1457 3741 1106 TAD K40ea /UPTTE FUNCTION 



yi4}» 



3498 

3«S9 
9460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3479 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3483 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3563 
3'iei 
3S03 
3S03 
3«e4 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 



3742 
3743 
3744 

3745 
3746 
3747 
3790 
3751 
3752 
3753 
3754 
3755 
3796 
3757 
3760 
3761 
3762 
3763 
3764 
3765 
3766 

3767 
3770 
3771 
3772 
3773 



3774 
3775 
3776 
3777 
4000 
4001 
4002 
4»«3 
4004 
4005 
4006 
4007 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4030 
4021 
4022 



4450 

7344 

4451 
1076 
4455 
4456 
4440 
7610 
5371 
7301 
4453 
4444 
3173 
1175 
1126 
4450 
1154 
3163 
1076 
4455 
4456 

4440 
4435 
4436 

3727 
4363 



7301 
4453 
1153 
3000 
1154 
3532 
7340 
4451 
4444 
ll?6 
1175 
4450 
7344 
3156 
1076 
4455 
2156 
5213 
7 300 
1154 
3163 
4456 
4440 



LDCXD 

CLA CLL 

LDCUP 

TAD 

LDMAN 

RDBllF 

ACCHPl 

SKP CLA 

JMp 

CLA CLL 

CLKALL 

EOMANl 

DCA 

TAD 

IAD 

LDCHD 

IAD 

DCA 

IAD 

LDHAN 

BOBUf 

ACC"Pl 

NEPBOP 
EBROP 
IST83 
426J 



CMA RAL 
K0040 



T93E 
lAC 



ADPEG 

HOHEMA 

K5000 

RES3 

GDREG3 

K0040 



/load cc«>(ano 

/load current address to 7776 
/breat enable bit 
/load and go 
/read buffer 
/check results 

/O.K. TRY LOCATION t> 
/ERROR, DATA BREAK 

/DCLR "CLEAR CURRENT ADDRESS" 
/ENTER "AINTENANCE MODE 

/SETUP FOR ERROR PRINTER 
/CURRENT FIELD BITS 
/FUNCTION WRITE 
/LOAD COMMAND 

/SETUP COMPARE REGISTER 
/BREAK ENABLE BIT 
/LOAD AND GO 
/READ BUFFER 

/CHECK RESULTS 
/ALL KORKFO 4t<96 LOOPS 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFK THAT CURRENT ADDRESS DOES INCREMENT FROM 7777 

/TO 0000. DO A "RUE DATA BREAK AND USE DATA PATTERN 

/ALL COMBINATION, 

/ 

TSTB4, 



CLA CLL 


lAC 




CLRALL 




/CLEAR CONTROL 


TAD 


REGl 




DCA 





/STORE OUTBOUND DATA 


IAD 


REGS 




DCA I 


K7777 


/STORE OUTBOUND DATA 


CIA CLL 


CMA 




LDCUR 




/LOAD CURRENT ADDRESS 


ENMANl 




/ENTER MAINTENANCE MODE 


TAD 


K5000 


/"RUE FUNCTION 


TAD 


HOMEMA 


/CURRENT FIELD 


LDCN" 




/LOAD COMMAND 


CLA ., L 


CMA R: 




DCS 


ICNTRI 


/2 BREAK COUNTER 


TAD 


Ke040 


/FNABLE BREAK BIT 


LDMAN 




/LOAD MAINTENANCE 


ISZ 


ICNTBl 


/COUNT BREAKS 


JMP 


.-2 


/DO 2 


CLA CLL 






IAD 


REG2 




DCA 


GDREG3 


/SETUP COMPARE REGISTER 


RDBUF 




/GET FIRST WORD 


ACCMPI 




/CHECK IT 



3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3532 
3523 
3534 
3525 
3526 
3527 
3538 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
)59> 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 



4023 
4024 
4025 
4026 
4027 
4030 
4031 
4032 
4033 
4034 
4035 



4036 
4037 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4050 
4051 
4052 
409 3 
4054 
4055 
4056 
4057 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4100 
4101 
4102 
4103 



VI43A 

7610 
5333 
3172 
1153 
3163 
4456 
4440 
4435 
4436 
3774 
4363 



7301 
4453 
7340 
3153 
1100 
3157 
1 100 
4451 
4444 
4452 
1557 
3156 
1157 
71ia 
7630 
7240 
3163 
1163 
3557 
1175 
1 106 
4450 
1076 
4455 
730a 
1156 
3557 
1157 
3172 
4456 
4440 
7610 
5306 
1157 
1 157 
7650 
5305 
2157 
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T84E, 



SKP CLA 

JMP 

DCA 

IAD 

DCA 

RDBUF 

ACC"PI 

NERROR 

ERROR 

TST84 

4263 



T84E 
ADREG 
REGl 
GDBEG2 



/FIRST O.K. 
/EBRORi FIRST WORD 
/SETUP ERROR PRINTER 

/SETUP COMPARE REGISTER 

/GET SECOND WORD 

/CHECK IT 

/O.K. 4096 LOOPS 

/DATA BREAK 

/SCOPE LOOP POINTER 

/TEXT POINTER 



/VERIFY THAT CURRENT ADD 
/ADDRESS TEST FROM 0200 
/FIELD. 00 A WRITE DATA 
/ 
TST85, 



T85R1, 



RESS DOES INCREMENT 
TO 18185 OF CURRENT 
BREAK. 



CLA CLL 


I AC 






CLRALL 






/DCLR "CLR ALL" 


CLA CLL 


CMA 






DCA 


BEGl 


/SETUP 


FOR 1 PASS PER TEST 


TAD 


K0200 






DCA 


ICNTR7 


/START 


AT ADDRESS 0200 


TAD 


K0200 






LDCUR 




/LOAD 


CURRENT ADDRESS 


ENMANl 




/ENTER 


MAINTENANCE MOPE 


IDADD 




/KEEP 


WRITE INHIBIT CLEAR 


IAD I 


TCNTR2 


/GET INSTRUCTION 


DCA 


TCNTR1 




/SAVE INSTRUCTION 


TAD 


TCNTB2 






CLL RAR 








SIl CLA 








CLA CMA 




/USE DATA 7777 


DCA 


GDREG3 




/SETUP COMPARE REGISTFR 


TAD 


GDREG3 






DCA I 


TCNTRJ 




/STORE OUTBOUND DATA 


no 


HOMEMA 




/CURRENT FIELD BUS 


TAD 


K4000 




/WRITE FUNCTION 


LDCMD 






/LOAD COMMAND REGISTER 


TAD 


K(3040 




/BREAK ENABLE BIT 


LDMAN 






/LOAD ANO GO 


CLA CLL 








TAD 


ICNTRI 




/GET INSTRUCTION 


DCA I 


TCNTR2 




/REPLACE INSTPUCTIOt 


TAD 


TCNTR7 






DCA 


ADREG 




/ADDRESS OF BREAK 


RDBUF 






/GET DATA 


ACCMpl 






/CHECK RESULTS 


SKP CLA 








JMP 


TB5E 




/ERROR, DATA RRFAK 


TAD 


TCNTRJ 






TSD 


MTS95 




/SPECIAL POINTER FOR START Of 


SNA CLA 






/THIS TEST, 


JMP 


I950K 


/TEST 1 


T.K. 


ISZ 


TCNTR2 
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3568 


4104 


5346 




JXP 


I95R1 


3S69 


4105 


4435 


I850K, 


- NEBROR 




3S7« 


4106 


4436 


T85E, 


ERROR 




3571 


4107 


4036 




TST85 




3572 


4110 


436) 




4363 




SS73 






/ 






3574 


4111 


5713 




JMP I 


.♦1 


3575 


4113 


4300 




TST86 




3576 






/ 






1577 






/VERIFY THAT B 


LAST BRE, 


3578 






/AND VERIFY THAT DCUR CI 


3579 






/ 






1580 




4300 


PAGE 






3581 


4300 


7340 


TST86, 


CbA CLL 


CMA 


3583 


4201 


3153 




DCA 


REGl 


358) 


4303 


1143 




T»D 


M355 


3584 


4303 


3156 




DCA 


ICNTRl 


3585 


4304 


7301 


T86R1, 


Ct-A Ct-L 


lAC 


3586 


4305 


4453 




CLRALL 




3587 


4306 


1156 




TAD 


ICNTRl 


3588 


4307 


3157 




DCA 


TCNIR2 


3589 


4310 


4444 




ENMANl 




359e 


4311 


1175 




TAD 


HOMEHA 


3591 


4312 


1106 




TAD 


K4000 


3592 


4213 


4450 




LDCHD 




3593 


4214 


4451 


T86R2, 


LOCUB 




3594 


4215 


7340 




CLA CLL 


CMA 


3595 


4316 


3»0B 




DCA 





3596 


4317 


7340 




CLA CLL 


CMA 


3597 


423«> 


316) 




DCA 


CDREG3 


3598 


4331 


1076 




IAD 


K0040 


3599 


4333 


4455 




LDMAN 




3600 


4333 


4456 




RDBUr 




3601 


4334 


4440 




ACCMPl 




3602 


4335 


7610 




5KP CLA 




3603 


4336 


5376 




JMP 


T86E 


3604 


4237 


3157 




ISZ 


ICNTR2 


3605 


4230 


5314 




JMP 


T86R3 


3606 


4231 


7301 




CLA CLL 


lAC 


3607 


4232 


4453 




CLRALL 




3608 


4233 


7)40 




CLA CLL 


CMA 


3609 


4334 


1143 




TAD 


H255 


3610 


4335 


3157 




DCA 


ICNTRS 


3611 


43)6 


7300 


T86R3, 


CLA CLL 




3613 












3613 


4237 


39ae 




DCA 





3614 


4340 


)163 




DCA 


GDREG3 


3615 


4341 


4444 




ENMANl 




3616 


4343 


4451 




LDCUB 




3617 


434) 


1136 




TAD 


K5000 


3618 


4344 


117! 




IAD 


HOMEMA 


3619 


4345 


4450 




LOCMD 




3630 


4346 


1076 




TAD 


K0040 


3621 


4347 


4455 




LDMAN 




3633 


4350 


4456 




ROBUF 





/LOOP DO 0390 10 TST60 

/THIS ADDRESS WORKED TRY NEXT 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TEST 



AK SETS AFTER 35* WRITE DATA BREAKS 
LEAPS WRITE INHIBIT COUNTER. 



/SETUP FOR 1 PASS PER TEST 

/SPECIAL COUNTER 

/CLEAR CONTROL 

/AMOUNT OF BREAKS TO DO 
/ENTER MAINTENANCE MODE 

/CURRENT FIELD BITS 
/WRITE FUNCTION 
/LOAD COMMAND 
/LOAD CURRENT ADDRESS 

/STORE OUTBOUND DATA 

/SETUP COMPARE REGISTER 

/BREAK ENABLE BIT 
/LOAD AND GO 

/GET WORD 

/CHECK RESULTS 

/DATA ERROR 
/DO 0-355 BREAKS 
/CLEAR CONTROL AND COUNTER 



/356 BREAK COUNTER 

/MAKE DATA PATTERN 
/STORE OUTBOUND DATA 
/SETUP COMPARE REGISTER 
/ENTER MAINTENANCE MODE 
/LOAD CURRENT ADDRESS 
/WRITE FUNCTION 
/CURRENT FIELD 
/LOAD COMMAND 
/ENABLE BREAK BIT 
/LOAD MAINTENANCE 
/GET WORD 



SEQ 0092 



PAH0 VI43A 7-MAR.77 



13155 PAGE 7.1e 



3633 
3634 
3635 

3636 

3637 

3638 

3639 

3630 

3631 

3633 

3633 

3634 

3635 

3636 

3637 

36)8 

)6)9 

3640 

3641 

3643 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3653 

3653 

3654 

3655 

3656 

3657 

3658 

36S9 

3660 

3661 

3663 

3663 

3664 

)665 

3666 

3667 

3668 

3669 

3670 

3671 

3673 

3673 

3674 

3675 

3676 

3677 



4351 
4353 

4353 
4354 
4355 

4356 
4357 
4360 
4361 
4362 
4263 
4364 
4365 
4266 
4267 
4270 
4271 
4373 
437) 
4274 
4275 
4376 
4377 
4300 



4)03 
4304 
4305 
4306 
4)07 
4)10 
4)11 
4313 
4313 
4314 
4315 
431* 
4317 
4320 
4321 
4332 
4323 
4334 
4J25 
4336 
4327 
4330 



4440 

7610 
5376 
3157 
5336 
1107 
316e 
7340 
3000 
4451 
1076 
4455 
4456 
4440 
7610 
5376 
3160 
5360 
3156 
5304 
4435 
4436 
4300 
4363 



4)01 5703 
4303 4303 



7340 
3153 
114) 

3156 
7301 
4453 
1156 
3157 
4444 
1077 
1175 
1106 
4450 
4451 
7)40 
3K00 
7340 
3163 
1876 
4455 
4^56 
4440 



T86R4, 



T86E, 



ACCMPl 

BKP CLA 

JMP 

ISZ 

JMP 

TAD 

DCA 

CLA CLL CMA 

DCA 

LDCUR 

TAD 

LDMAN 

RDBUF 

ACCMpl 

SKP CLA 

JMP 

ISZ 

JMP 

ISZ 

JMP 

NERROR 

ERROR 

TST86 

4363 

JMP I 
IST97 



I86E 

ICNTRJ 

I86R) 

K7000 

TCNTR3 



Te6E 

ICNtR) 

I86R4 

ICNTRl 

T86R1 



/CHECK RESULTS 
/WORD O.K. 
/DATA ERROR 

/DO 356 WRITE BREAKS 

/CLEAR COUNTER 

/STORE NOT OUTBOUND DATA 
/LOAD CURRENT ADDRESS 
/ENABLE BREAK BIT 
/LOAD "SHOULD NOT BREAK" 

/GET DATA 
/CHECK IT 
/DATA O.K. 
/ERROR, DATA BREAK INHIBIT 

/DO •leetl FAKE" BREAKS 

/START ALL OVER WITH ONE LESS 
/TO NEXT TEST 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/TO NEXT TEST 



/VERIFY THAT B LAST BREAK SETS AFTER 12» BREAKS IF 

/HALF BIT IS SET, ALSO MAKE SURE LOAD DISK ADDRESS LOADS 

/THE INHIBIT COUNTER CORRECTLY. 

/ 

16197, 



I97R1, 



T87R2, 



CLA CLL 


CMA 


DCA 


RFGl 


TAD 


M255 


DCA 


ICNTRl 


CLA CLL 


lAC 


CLRALL 




IAD 


TCNIRl 


DCA 


TCNTR3 


ENMANl 




IAD 


K0100 


TAD 


HOMEMA 


TAD 


K4000 


LDCHD 




LDCm 




CLA CLL 


CMA 


DCA 





CLA CLL 


CA 


DCA 


GDREG7 


TAD 


K004fl 


LDMAN 




RDBUF 




ACCMpl 





/SETUP FOR 1 PASS PER TEST 
/SPECIAL COUNTER 
/CLEAR CONTROL 

/AMOUNT Of RREJKf TO DO 

/ENTER MAINTENAMCt MODE 

/HALF BIT 

/CURRENT FIELD BITS 
/WRITE FUNCTION 
/LOAD COH'«ANO 

/LOAD CURRENT ADDRESS 

/STORE OUTBOUND DATA 

/SETUP COMPARE REGISTER 

/BREAK ENABLE BIT 
/LOAD AND GO 

/GET WORD 

/CHECK RESULTS 



V1421 7-HAF-77 



3678 
3679 
3690 
3681 
3682 
368] 
3684 
368S 
3686 
36BT 
3688 
3689 
3690 
3691 
3693 
3693 
1694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
37J1 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3730 
3731 
3732 
3733 
J734 
3735 
3736 
3727 
3738 
3739 
3730 
3731 
3733 



4331 
4332 
4333 
4334 
4335 
4336 
4337 
4340 

4341 
4343 
4343 
4344 
4345 
4346 
4347 
4350 
4351 
4353 
4353 
4354 
4355 
4356 
4357 
4360 
4361 
4362 
4363 
4364 
436S 
4366 
4367 
4370 
4371 
4373 
4371 
4374 
4375 
4376 



4377 
4400 
4401 
4402 
440] 
4404 
4405 
4406 
4407 
4410 
4411 



7610 
5174 
3157 
5320 
4453 
1141 
3157 
73B0 

3000 
3163 
4451 
1076 
445! 
4456 
4440 
7610 
5374 
2157 
5340 
1107 
3160 
7340 
3000 
4451 
1076 
4455 
4456 
4440 
7610 
5374 
2160 
5356 
3156 
5307 
4435 
4436 
430] 
4363 



7]01 
445] 
1175 
4450 
115) 
7110 
7630 
7340 
3163 
1163 
4437 



T87R3, 



I87R4, 



T87E, 



SKP CL» 

JMP 

ISZ 

JMP 

LDADD 

TAD 

DC» 

CLA Ct.1, 



TB7E 

TCNIR2 

T87P2 

H128 
TCNTR2 



DCA 

DCA 

LDCUR 

TAD 

LDMAN 

ROBUr 

ACCMPl 

SKP CLA 

JMP 

ISZ 

JMP 

TAD 

DCA 

CLA CLL CMA 

DCA 

LDCUR 

TAD K00 

LDMAN 

RDBUr 

ACCMPl 

SKP CLA 

JMP 

ISZ 

JMP 

ISZ 

JMP 

NERROR 

ERROR 

TSTB7 

4363 



GDREG2 



Te7E 

ICNTR3 

Te7R3 

K70e0 

TCNTR1 



T87E 

TCNTR3 

T87R4 

TCNTRl 

T87R1 



/VERIFY THAT "DATA BREAK" 

/TO LOCATION OF CURRENT 

/PATTERN 0000 AND 7777, 

/ 

TSTSB, CI.. C..h 

CLP»l,l. 

IAD 

LDCMD 

TAD 

CLL RAR 

SZL CLA 

CLA CMA 

DCA 

TAD 

LDBUF 



lAC 



HOMrMt 



REGl 



GDREG3 
CDRES3 



/DATA ERROR 

/DO SO MANY BREAKS 

/LOAD ADDRESS AND INHIBIT COUNT 

/138 BREAK COUNTER 

/MAKE DATA WORD 
/STORE OUTBOUND DATA 
/SETUP COMPARE REGISTER 
/LOAD CURRENT ADDRESS 
/ENABLE BREAK BIT 
/LOAD MAINTENANCE 
/GET "ORD 
/CHECK RESULTS 
/WORD O.K. 
/DATA ERROR 

/DO 178 WRITE BREAKS 

/CLEAR COUNTER 

/STORE NOT OUTBOUND DATA 
/LOAD CURRENT ADDRESS 
/ENABLE BREAK BIT 
/LOAD "SHOULD NOT BREAK" 

/GET DATA 
/CHECK IT 
/DATA O.K. 
/ERROR, DATA BREAK INHIBIT 

/DO "1000 FAKE" BREAKS 

/START ALL OVER WITH ONE LESS 
/TO NEXT TEST 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 

WORKS WITH A "READ" 
FIELD. USE DATA 



/DCLR "CLP ALL" 
/CURRENT FIELD 
/LOAD COMMAND TO 



/SETUP COMPARE REGISTER 
/GET VALUE TO LOAD 
/LOAD UPPER BUFFER 



3733 
3734 
3735 
37)6 
3737 
3738 
3739 
3740 
3741 
3743 
3743 
3744 
3745 
3746 
3747 
374B 
3749 
3750 
3751 
3753 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
37B5 
37B6 
3787 



4412 
441) 
4414 
4415 
4416 
4417 
4430 
4431 
4433 
4433 
4434 
4425 



4436 
4437 
4430 
4431 
4433 
443) 
4434 
4435 
4436 
4437 
4440 
4441 
4443 
4443 
4444 
4445 
4446 
4447 
4450 
4451 
4452 
4453 
4454 
4455 
4456 



4457 
4460 
4461 
4462 
4463 
4464 



V143A 

1076 
445! 

7300 
3172 
1000 
3173 
1173 
4440 
4435 
4436 
4)77 
436) 



7)01 
4453 
1103 
1175 
4450 
115) 
7110 
76)0 
7340 
)I63 
7240 
4451 
1163 
4437 
1076 
4455 
7 300 
1533 
3173 
1173 
4440 
443! 
4436 
4426 
436) 



7)01 
4453 

117S 
445H 
1151 
71 !■? 
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TAD 

LDMAN 

CLA CLL 

DCA 

TAD 

DCA 

TAD 

ACCMPl 

NERROR 

ERROR 

TST88 

4363 



DTREG 
DTREG 



/LOAD AND GO 

/ADDRESS FOR PRINTER 
/GET INBOUND WORD 
/SAVE IT 

/CHECK 

/O.K. 4096 LOOPS 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/VERIFY WITH A "READ" THAT "DATA BREAK" WORKS 

/FROM LOCATION "7777" OF CURRENT FIELD USE 

/DATA PATTERN 0000 AND 7777, 

/ 

TST89, 



CLA CLL 


lAC 


CLRALL 




TAD 


KlBBa 


IAD 


HOMEMA 


LDCMD 




TAD 


REGl 


CLL RAR 




SZL CLA 




CLA CMA 




DCA 


GDREG2 


CLA CMA 




LDCUR 




TAD 


GDREG2 


LDBUr 




TAD 


K0040 


LDMAN 




CLA CLL 




TAD I 


K7777 


DCA 


DTREG 


TAD 


DTREG 


ACCMPl 




NERROR 




ERROR 




TSTfl9 




4263 





/CURRENT FIELD 

/LOAD COMMAND FOR READ 



/SETUP COMPARE REGISTER 

/LOAD CURRENT ADDRESS 
/GET VALUE TO LOAD 
/LOAD UPPER BUFFER 

/ENABLE BREAK BIT 

/LOAD AND GO 

/GET "WORD" 

/SAVE INBOUND WORD 

/CHECK IT 
/O.K. 4096 LOOPS 
/ERROR, DATA BREAK 
/SCOPE loop POINTER 
/TEXT POINTER 



/VERIFY THAT "DATA BREAK" WITH A "READ" TO 
/CURRENT FIELD LOCATION USE 0>TA PATTERN 
/5252 ♦ 2525 



/ 

TST90, 



CLA CLL lAC 

CLRALL 

TAD HOMEMA 

LDC"D 

TAD REGl 

CLL RAR 



/DCLR 
/CURRENT FIELD 
/LOAD COMMAND TO READ 



V14JA 7-MIR.77 



3788 


4465 


7630 


3799 


4466 


1120 


3790 


4467 


1120 


379J 


4470 


3161 


3791 


4471 


1163 


3793 


4472 


4427 


3794 


4471 


4451 


1795 


4474 


1076 


3796 


4475 


4455 


1797 


4476 


7300 


1798 


4477 


1000 


1799 


4500 


317S 


laee 


4501 


1000 


1801 


4503 


4440 


190] 


4503 


4435 


1901 


4504 


4436 


3804 


4505 


4457 


1805 


4506 


4263 


1806 






1907 






1909 






1909 






1910 






3911 


4507 


7301 


1913 


4510 


4453 


3811 


4511 


ins 


1814 


4513 


4450 


3815 


4913 


7240 


3816 


4514 


4451 


3817 


4515 


1)51 


3818 


4516 


7110 


1919 


4517 


7630 


1920 


4530 


1120 


39St 


4531 


1120 


3922 


4533 


3163 


3921 


4533 


1163 


1924 


4534 


4427 


3925 


4535 


1076 


3926 


4536 


4455 


3827 


4537 


7300 


3938 


4530 


1532 


3829 


4531 


3173 


3830 


4532 


1173 


3831 


4533 


4440 


3832 


4534 


4435 


1813 


4335 


4436 


3934 


4536 


4507 


3835 


4537 


4263 


3936 






3837 


4540 


5741 


3838 


4541 


4600 


3839 






1840 






3841 






3842 







SEQ 0096 

all CLA /WHAT DDATA 

TAD K2525 /BAIA S252 

TAD K2S:5 

DCA GDRESJ /SETUP COMPARE REGISTER 

TAD CDREGJ /GET VALUE TO LOAD 

LDBUr /LOAD UPPER BUFFER 

LOCUP /LOAD CtlRPENT ADDRESS TO 

IAD K0040 /ENABLE BREAK 

LOMAN /LOAD AND CO 

CLA CLL 

IAD ' 

DCA DTREG /SAVE DATA 

IAD D 

ACC"P1 /CHECK 

NERPOR /O.K. 4096 LOOPS 

CRPOB /ERROR, DATA BREAK 

TST90 /SCOPE LOOP POINTER 

4363 /TEXT POINTER 

/ 

/VERIFY THAT "DATA BREAK" WORD WITH A "READ" 
/TO CURRENT FIELD LOCATION LOCATION 7777. 
/USE DATA PATTERN 5252 * 2525 
/ 
ISI91, CLA CLL lAC 

CLRALL 



IAD 


HOKEMt 


LDCMD 




CLA CMA 




LOCUR 




TAD 


REGl 


CLL RAR 




StL CLA 




TAD 


K2525 


TAD 


K2525 


DCA 


GDREa3 


TAD 


GDREG3 


LOBUF 




IAD 


K0040 


LDMAN 




CLA CLL 




TAD I 


K7777 


DCA 


DIREG 


IAD 


DTREG 


ACCMPl 




NCRROR 




ERROR 




TST91 




4263 




JMP I 


.*l 


ISI92 





/CURRENT FIELD 
/LOAD COMMAND 



/LOAD CURRENT ADDRESS 



/WHAT DATA TO USE 
/DATA 5252 

/SETUP COMPARE REGISTER 
/GET VALUE TO LOAD 
/LOAD UPPER BUFFER 
/ENABLE BREAK BIT 
/LOAD MAINTENANCE 

/GET BREAK WORD 
/SAVE FOR ERROR PRINTER 

/CHECK 

/O.K. 4096 LOOPS 
/ERROR. DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/TO NEXT TEST 
IST92 
/ 
/ 

/VERIFY THAT "DATA BUFFERS" CAN BE FILLED 
/ON A WRITE DATA BREAK FROM LOCATION 



PALt0 V142A 7-MAR.77 13155 PACE 7-14 

jJJJ /» Of CURRENT FIELD, USE ALL COMBINATIONS, 

1845 4600 PAGE 

1846 4600 7301 TST92, CLA CLL lAC 



3847 4601 4453 CLRALL 

3848 4602 4444 ENMANt 



/DCLR "CLP ALL" 
/ENTER MAINTENANCE MODE 



/DATA START 
/CURRENT FIELD 



3849 4603 1131 TAD M4 

III' Zt nil ?Sd* lllr /FOR FOUR WORDS 

3852 4606 3157 DCA TCNTRJ 

3853 4607 1175 TAD HOMEMA 

lilt \t\\ Wit III., ■'""'' zircZiir 

IIV. Jtl? V.l\ """ T^^g"" ICNTR, -°" ="-" '-"" " ' 

nil " ' >"' "D K0040 /ENABLE BREAK BIT 

3m ni5 'All ^^CLL /LOAD AND GO 

lltl till 'III III '""' /UPDATE DAT. WORD 



3964 4622 2156 ISZ TCNTRl 

3865 4623 5312 JMP T92R1 

3866 4624 1133 TAD M4 

3867 4625 3156 DCA TCNIR] 

3868 4626 1153 IAD REGl 

3869 4627 3163 DC* GDREG2 

3870 4630 4456 I92R2, ROBUF 

3871 4631 4440 ACCMpl 

3872 4632 7610 S'P CLA 
3871 4633 5341 JMP T92E 

3874 4634 3163 ISZ GDREG3 

3875 4635 7000 NOP 

3876 4636 2156 ISZ ICNIRl 

3877 4637 5230 JMP I92R2 

3878 4640 4435 NERROR 

3879 4641 4436 T92E, ERROR 



/FILL BUFFER 



/O.K. 4ei96 LOOPS 
/ERROR, DATA BREAK 



3880 4643 4600 TST9J /SCOPE LOOP POINTER 

3991 4643 4263 4263 /TEXT POINTER 

3B82 / 

3883 4644 564! JMp i , + 1 /tO NEXT TEST 

3884 4645 4646 TST93 
3895 / 

3886 / 

3967 /VERIFY THAT "DATA BREAK" WORKS WITH 

3888 /A "READ" TO CURRENT FIELD LOCATION 

1889 /TRY ALL COMBINATIONS 

3990 / 

3891 4646 7301 TSI93, CLA CLL lAC 

3892 4647 4453 CLRALL /ncLR "CLR ALI " 

3893 4650 1175 TAD HOMEMB /CUPKENT FTFLD 

3894 4651 4450 LDCD /LOAD COMMAND FOR READ 

3895 4652 3173 DCA ADREG /SAVE ADDRESS 

3896 4653 1154 i»d REG2 

3897 4654 3163 DCA GDREG2 /SETUP COMPARE REGISTER 





PALIS 


V142A 


7-MAR. 


■ 77 


13155 










IAD 


GDREG2 










LOBUr 












IAD 


K0040 










LDMAN 












CLA CLL 












TAD 


e 










DCA 


DTREG 










IAD 


DTREO 










ACCMPl 












NERROR 












ERROR 






4670 






TST93 






4671 






4263 










/ 












/VERIFY THAT A 


READ DA' 








/WHEN 


FUNCTION 


■ 2 








/ 












TST94, 


. CLA CLL 


lAC 










CIRALL 












IAD 


REGl 










DCA 


GDRE02 










IAD 


GDREG2 










LDBUF 












IAD 


aDRES2 










CMA 












DCA 













LDCUP 












TAD 


HOMEMA 










IAD 


K2000 










LDCMD 












IAD 


K0040 










LDMAN 












CLA CLL 












IAD 













DCA 


DTREG 










TAD 


DIREG 










ACCMPl 












NERROR 










T94E> 


ERROR 












TSI94 












4263 










/ 












/VERlry THAT A 


READ DA' 








/WHEN 


FU«CTK-» 


■ 3 








/ 












IST95, 


, CLA CLL 


I AC 










CLRALL 












TAD 


REC2 










DCA 


GDREG2 










IAD 


GDREG2 










LOBUF 












IAD 


GDREG2 










CHA 












DCA 













LDCUP 





/GET VALUE TO LOAD 
/LOAD UPPER BUFFER 

/BREAK ENABLE BIT 

/LOAD AND GO 

/GET DATA HORD 
/SAVE FOR ERROR PRINTER 

/CHECK 

/O.K. 4096 LOOPS 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/DCLR 

/GET VALUE TO LOAD 

/SETUP COMPARE REGISTER 

/LOAD UPPER BUFFER 



/SET CURRENT ADDRESS TO 
/CURRENT FIELD 

/LOAD COMMAND REGISTER 

/ENABLE BREAK 

/GO 



/SAVE FOR ERROR PRINTER 

/DID CHANGE 
/ALL O.K. 

/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



/SETUP COMPARE REGISTER 
/LOAD UPPER BUFFER 



/SET CURRENT ADDRESS TO 
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3953 4734 1175 IAD HOMEMA /CURRENT FIELD 

3954 473S 1103 TAD K1000 

3955 4736 1104 TAD K2000 

3956 4737 4450 LOCMD /LOAD COMMAND REGISTER 
3997 4740 1076 TAD K0040 /ENABLE BREAK 

395B 4741 4455 LDMAN /GO 

3959 4742 7300 CLA CLL 

3960 4743 1000 TAD 

3961 4744 3173 DCA DTREG /SAVE FOR ERROR PRINTER 

3962 4745 1173 IAD DTREG 

3963 4746 4440 ACCMPl /DID CHANGE 

3964 4747 4435 NERROR /ALL O.K. 

3965 4750 4436 I9SE, ERROR /ERROR, DATA BREAK 

3966 4751 4722 TST95 /SCOPE LOOP POINTER 

3967 4752 4263 4263 /TEXT POINTER 
3966 / 

3969 4753 5754 JMP 1 ,♦! /lo NEXT TEST 

3970 4754 5000 TST97 

3971 5000 PAGE 

3972 / 

3973 / 

3974 /VERIFY THAT A READ DATA BREAK DOES OCCUR 

3975 /WHEN FUNCTION ■ 6 

3976 / 

3977 5000 7301 TSI97, CLA CLL lAC 

3978 5001 4453 CLRALL /DCLR 

3979 5002 1153 TAD REGl 

3980 5003 3163 DCA GDREG2 /SETUP COMPARE REGISTER 
39SI S004 1163 I>D GDREG: 

3902 5005 4427 LDBUF /LOAD UPPER BUFFER 

3993 5006 1163 TAD aDREG2 

3984 5007 7040 CMA 

3985 5010 3000 DCA 

3986 5011 4451 LDCUR /SET CURRENT ADDRESS TO I 

3987 5012 1175 TAD HOMEMA /CURRENT FIELD 

3988 5013 1106 TAD K4000 

3989 5014 1104 TAD K200e 

3990 5015 4450 LOCMD /LOAD COMMjND REGISTER 

3991 5016 1076 TAD KBa40 /ENABLE BREAK 

3992 5017 4455 LDMAN /GO 

3993 5020 7300 CIA CLL 

3994 5021 1000 IAD 

3995 5022 3173 DCA DTREG /SAVE FOR ERROR PRINTER 

3996 50J3 1173 IAD DTREG 

3997 5034 4440 ACCMpl /did CHANGE 
399B 50J5 443! NERROR /ALL O.K. 

3999 50J6 4436 T97E, ERROR /ERROR, DATA BREAK 

4000 5027 5000 TST97 /SCOPE LOOP POINTER 

4001 5030 4263 4J63 /TEXT POINTER 

4002 / 

4003 /VERIFY THAT A READ DATA BREAK DOES OCCUR 

4004 /WHEN FUNCTION = 7 

4005 / 

4006 S031 7301 TSI98, CLA CLL lAC 

4007 5032 4453 CLRALL /DCLR 



fkl\d VI42A 7-MAR-77 



4008 
4«89 
4Bie 
4011 
4012 
4013 
4014 
401S 
4016 
4017 
4011 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4036 
4027 
402e 
4029 
4030 
4031 
4032 
4033 
4034 
4039 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4049 
4046 
4047 
4048 
4049 
4050 
4051 
4092 
4093 
4054 
4059 
4056 
4097 
4098 
4059 
4060 
4061 
4062 



9033 
9034 
9039 

5036 
5037 
5040 
9041 
5042 
9043 
9044 
9049 
9046 
9047 
9050 
9051 
9052 
9093 
9094 
9099 
9096 
5057 
9060 
5061 
5062 



5063 
5064 
5069 
9066 
9067 
9070 
5071 
5072 
5073 
5074 
5075 
5076 
9077 
9100 
5101 
9102 
5103 
9104 
S109 
5106 
5107 
9110 
9111 
5112 
5113 
9114 



H94 
3163 
1163 
4427 
1)6) 
7040 
3000 
449) 
)I7S 
1106 
1103 
)104 
4450 
1076 
4459 
7300 
1000 
3173 
1173 
4440 
4439 
4436 
9031 
4263 



7301 
4453 
1154 
3161 
1133 
3160 
)161 
4427 
7340 
1161 
3161 
2160 
5371 
)194 
3163 
1133 
3160 
1175 
4450 
445) 
1076 
4459 
7300 
1000 
3)73 
1173 



T98E. 



OCA 

TAD 

LDBUr 

TAD 

C«A 

DCA 

LDCUR 

TAD 

TAD 

IAD 

TAD 

LDCMD 

TAD 

IDMAN 

CtA CLL 

TAD 

DCA 

TAD 

ACCHPl 

NCRROR 

ERROR 

T8T98 

4263 



13)55 

REG: 

GDREC: 

CDREG2 

CDREG2 



HOMENA 
K4000 
K1000 
K2000 

K0040 



DTREG 
DTREG 



SEQ 0100 



/VERIFY THAT ALL DATA BUFfERS 
/AT ONCE. USE A READ BREAK AND 
/ALL COHBINATZONS, 
/ 

TaT99, CLA CLL lAC 
CLRALL 



T99R1, 



/SETUP COMPARE REGISTER 
/LOAD UPPER BUFFER 



/SET CURRENT ADDRESS TO 
/CURRENT FIELD 



/LOAD COMMAND REGISTER 

/ENABLE BREAK 

/GO 



/SAVE FOR ERROR PRINTER 

/DID CHANGE 
/ALL O.K. 

/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 

CAN BE FULL 
PATTERN 



T99R2, 



TAD 


RE63 


DCA 


ICNTB4 


TAD 


M4 


DCA 


TCNTR3 


TAD 


TCNTR4 


IDBUF 




CLA CLL 


CMA 


TAD 


ICHTR4 


DCA 


TCNTR4 


I8Z 


ICNTR3 


JMP 


T99R1 


TAD 


REG2 


DCA 


GDREG2 


IAD 


H4 


DCA 


ICNIR3 


IAD 


HOHEMA 


LDCMD 




lOCUR 




TAD 


K0040 


LDNAN 




CLA CLL 




TAD 





DCA 


DTREG 


IAD 


DTREG 



/DCLR "CLR ALL" 



/COUNTER FOR • OF BUFFERS 
/LOAD UPPER BUFFER 



/4 COUNT, SKIP WHEN BUFFERS FULL 
/SETUP FOR FIRST CNMPARE 



/CURRENT FIELD 
/LOAD COMMAND 
/LOAD CURRENT ADDRESS 
/GET ENABLE BREAK 
/LOAD MAINTENANCE 

/GET DATA 

/SAVE FOR PRINTER 





PAL 10 


V143A 


7-MAR.77 


13)55 








ACCMPl 










SKP CLA 










JMP 


T99E 








CLA CLL 


CMA 








TAD 


aDREG3 








DCA 


GDREG3 








ISZ 


TCNTR3 






9306 


JMP 


I99R2 






4439 


NERROR 





/CHECK 

/O.K. CHECK NEXT 

/ERROR DATA BUFFERS 



/SETUP FOR NEXT 



/O.K. 4096 LOOPS 



SEQ 0101 



PALIB V142S 7-HAR.77 U:55 P«GE 9 

4B7J 51J6 44J6 T9SE, EBBOR /ERROR, DAT' 9UFFrRS ^'^° "^'^ 

4B73 51J7 5061 TST99 /SCOPF t,OOF JINTEB 

4B74 sua 4J6J 4265 /TFXI POINTtR 

4e75 / 

4B76 / 

4B77 /VERIFY A WRITE THEN BEAD BREAK FROM 

4B78 /LOCATIONS 7777 THEN «l0(ie OF THE 

♦B" /CURRENT FIELD, USE PATTERS B-7777. 

408B / 

4B81 5131 73B1 T5T1BB, CLA CLL lAC 

408S 513J 4453 CLRALL /CLEAR CONTROL 

4BB3 5133 4444 ENMANl /ENTER MAINTENANCE 

4BB4 5134 7340 CLA CLL CMA 

4085 513S 4451 LOCUR /LOAD CURRENT ADDRESS 

4086 5136 1154 TAD RES: 

4087 5137 353S DCA I K7777 /STORF OUT BOUND DATA 

4088 514B 1175 IAD HOMEHA /CURRENT FIELD 
4019 

4090 

4091 5141 1106 IBD K40B0 /WRITE FUNCTION 

409J 514J 445B LDCMD /LOAD COMMAND REGISTER 

4B93 5143 1076 IAD K0040 /ENABLE BREAK 

4B94 5144 4455 LDHAN /ISSUE MAINTENANCE lOT 

4B95 5145 7380 CLA CLL /READ FUNCTION 

4096 5146 1175 IAD HOMEMA /CURRENT FIELD 

4097 5147 4450 LDCMD /LOAD COMMAND REGISTER 
4099 5150 1076 TAD K0B4B /ENABLE BREAK 

4099 9151 4455 LDMAN /ISSUE mjiktENANCE IOI 

4100 5152 7308 CLA CLL 

4101 5153 2171 ISZ ADREG 
41B2 5154 7000 NOP 

4103 5155 1154 IAD REGJ 

4104 9156 3163 DCA GDREG2 /SETUP COMPARE 

4105 5157 1000 TAD 

4106 5160 3173 DCA DTREO /STORE DATA READ FOR PRINTER 

4107 5161 1000 TAD 

4108 5162 4440 ACCMpl /CHECK RESULTS 

4109 5163 4435 NERROR /O.K. 4B96 LOOPS 
411B 5164 4436 ERROR /ERROR, WRITE OR READ 

4111 5165 5131 TST10B /SCOPE POINTER 

4112 9166 4263 4263 

4113 5167 73B1 CLA CLL lAC 

4114 5170 1176 IAD FLDMAX 

4115 5171 7650 SNA CLA /Is it TEST EXTENDED MEM, 

4116 5172 543J JMP I XEND /NO, END OF TEST 

4117 / 

4118 5173 5774 JMp I .♦! /lo NEXT TEST 

4119 S174 52B1 EXTFLD 

4120 / 

4131 52B0 PAGE 

4132 / 

«123 /ROUTINE TO CHECK IF CONSOLE PACKAGE ACTIVE. 

♦124 /IF SO, THEN inhibit EXTENDED MEMORY TESTS. 

4135 / 

4136 520B 5670 ISILAS, ENDTST 



PALIB V142A 7-MAR.77 13155 PAGE 9-1 

EXTFLD, TAD 22 *'■'' *"' 

AND KB4e0 /MASK CLASSIC BIT 

SZA CLA /ON CLASSIC SYSTEM? 

JMP I ISILAS /BY-PASS EXI, TESTS, 

/VERIFY THAT DATA BREAK WORKS WITH A WRITE FROM 

/LOCATION 0000 IN ALL EXISTING EXTENDED FIELDS. 

/USE DATA PATTERN SB00 « 7777. 

/ 

TSTIBI, CLA CLL lAC 



/DCLR 

/ENTER MAINTENANCE MODE 

/START FIELD 

/FIELDS TO TEST -1 

/RETURN FIELD CDF 

/USE DATA 7777 IF LINK Is SET 

/SETUP COMPARE REGISTER 
/SET CURRENT ADDRESS TO BBBl" 



/CURRENT FIELD 
/YES, NOT THIS ONE 
/OUTBOUND DATA 

I0FLD2, HLI /modified CDF 

/STORE DATA 

RTFLD2, HLI . /HOME CDF 



/WRITE 

/LOAD COMMAND REGISTER 

/ENABLE WRITE BPEAK 

/GO 

/GET RESULTS 

/CHECK RESULTS 

/O.K. TRY NtXT 

/ERROR 



4137 


5381 


1832 


4128 


53B3 


8102 


4139 


5283 


7648 


413B 


5304 


5600 


4131 






4132 






4133 






4134 






4135 






4136 


5385 


7301 


4137 






4138 






4139 






4140 






4141 






4143 






4143 


5306 


4453 


4144 


5307 


4444 


4145 


5310 


1150 


4146 


5211 


3233 


4147 


5312 


1176 


4148 


5313 


3156 


4149 


5214 


1433 


415B 


5315 


3234 


4151 


5216 


1153 


4153 


5217 


7Ua 


4153 


5230 


7630 


4154 


5221 


7340 


4155 


5223 


3163 


4156 


5323 


4451 


4157 


5334 


1333 


4158 


5325 


7041 


4159 


3336 


1334 


416B 


5237 


7658 


4161 


533B 


5347 


4163 


5331 


1163 


4163 


5332 


7482 


4164 


5333 


3464 


4165 


5234 


7482 


4166 


5335 


1232 


4167 


5236 


8114 


4168 


5337 


1186 


4169 


5340 


4450 


4178 


5341 


1076 


4171 


5242 


4455 


4173 


5243 


4456 


4173 


5244 


4440 


4174 


5345 


7610 


4175 


5346 


5257 


4176 


5247 


2156 


4177 


5258 


7610 


4178 


5251 


5256 


4179 


5252 


1232 


4188 


5253 


1073 


4181 


5254 


3232 



NexFL2, 



CLRALL 




ENMANl 




TAD 


KCDF 


DCA 


T0FLD2 


IAD 


FLDMAX 


DCA 


TCNIRl 


TAD 1 


THSFLD 


DCA 


RTFLD3 


TAD 


REGl 


CLL RAR 




SZL CLA 




CLA CMA 




OCA 


GDREG2 


LDCUR 




TAD 


I0FLD2 


CIA 




IAD 


RTFL02 


SNA CLA 




JMP 


NEXFL2 


TAD 


GDREG2 


HLI 




DCA I 


K0808 


HLI . 




IAD 


T0FLD2 


AND 


K0070 


IAD 


K4008 


LDCMD 




TAD 


K0B40 


LDHAN 




RDBUF 




ACCMPl 




5KP CLA 




JMP 


iieiE 


ISZ 


TCNTBt 


SKP CLA 




JMP 


TieiD 


TAD 


T0FLD2 


TAD 


K08I0 


DCA 


I0FLD2 



/DONE WITH ALL 
/SFT TO NEXT FIELD 





PHI.10 


V142A 


7-MAR.' 


77 


13155 


418J 


5255 


5221 




J»P 


I101R 


4183 


5256 


443! 


T101D, 


NERROR 




4194 


5257 


4436 


T101E, 


ERROR 




4185 


5260 


5205 




IST10! 




4186 


5261 


4263 




4263 




4187 






/ 






4188 






/ 






4189 






/ 






4190 






/VEPlrV IH»T DATA BREAK 1 


4191 






/LOCATION 0000 


IN ALL ex: 


4192 






/USE DATA PHTTERN 2525 ♦ 


4193 






/ 






4194 


5262 


7301 


TST102i 


, CLA CIL 


I AC 


4195 


5263 


4453 




CLRALL 




4196 


5264 


4444 




ENMANl 




4197 


5265 


1150 




TAD 


Kcor 


4198 


5266 


3310 




DCA 


T0FLD3 


4199 


5267 


117S 




TAD 


FLDMAX 


4aee 


5270 


3156 




DCA 


ICNTRl 


43II1 


5271 


1433 




TAD I 


IHSFLO 


4382 


5272 


3312 




DCA 


RTFLD3 


42«3 


5273 


1153 




IAD 


REGl 


4204 


5274 


7110 




CLL RAR 




4205 


5275 


7630 




SZL CLA 




4206 


5276 


1120 




IAD 


K2535 


4207 


5277 


1120 




IAD 


K2S25 


4208 


5300 


3163 




DCA 


S0RES2 


4209 


5301 


4451 


T102R, 


LDCUR 




4210 


5302 


1310 




TAD 


T0FLD3 


4211 


5303 


7041 




CIA 




4312 


5304 


1312 




IAD 


PTFLD3 


4213 


5305 


7650 




SNA CliA 




4214 


5306 


5325 




JMR 


NEXFL3 


4215 


5307 


1163 




TAD 


SDRES2 


4216 


5310 


7402 


T0FLD3, 


HII 




4217 


5311 


3464 




DCA I 


K0000 


4218 


5312 


7402 


RTrLD3, 


HLT 




4219 


5313 


1310 




IAD 


TOFLDS 


4220 


5314 


0114 




AND 


K0070 


4221 


5315 


1106 




IAD 


K4000 


4222 


5316 


4450 




LDCMD 




4323 


5317 


1076 




TAD 


K0040 


4224 


5320 


4455 




LDMAN 




4225 


5321 


4456 




ROBUF 




4226 


5323 


4440 




ACCMPI 




4227 


5323 


7610 




SKP CLA 




4228 


5324 


5335 




JMP 


I102E 


4229 


5335 


2156 


NEXFL3, 


ISZ 


TCNIRI 


4230 


5326 


7610 




SKP CLA 




4231 


5327 


5334 




JMP 


11020 


4232 


5330 


1310 




TAD 


I0FL03 


4233 


5331 


1073 




IAD 


K0010 


4234 


5332 


3310 




DCA 


TOFLDS 


4235 


5333 


5301 




JNP 


I102R 


4236 


5334 


4435 


I102D, 


NERROR 





/TRY IT 

/0,K 4096 LOOPS 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



WORKS WITH A WRITE FROM 
ISTING EXTENDED FIELDS, 
5252, 



/DCLR 

/ENTER MAINTENANCE MODE 

/START FIELD 

/FIELDS TO TEST -1 

/RETURN FIELD CDF 

/USE DATA 5252 IF LINK IS SET 



/SETUP COMPARE REGISTER 
/SET CURRENT ADDRESS TO 0000 



/CURRENT FIELD 
/YES, NOT THIS ONE 
/OUTBOUND DATA 
/MODIFIED CDF 
/STORE DATA 
/HOME CDF 



/WRITE 

/LOAD COMMAND REGISTER 

/ENABLE WRITE BREAK 

/GO 

/GET RESULTS 

/CHECK RESULTS 

/O.K. TRY NEXT 

/ERROR 



/DONE WITH ALL 



/SET TO NEXT FIELD 

/TRY IT 

/O.K 4096 LOOPS 



PA110 V142A 7-MAR.77 



13155 PAGE 9.3 



4337 


5335 


4436 


T103E, 


ERROR 




4338 


5336 


5262 




ISI102 




4339 


5337 


4263 




4263 




4240 


5340 


5741 




JMP I 


,*i 


4341 


5341 


5400 




TST103 




4242 




5400 


PAGE 






4243 






/ 






4244 






/VERIFY THAT DATA BREAl 


4245 






/LOCATION 7777 


IN ALL 1 


4246 






/USE DATA PATTERN 0000 


4247 






/ 






4248 


5400 


7301 


151103, 


r CLA CLL 


lAC 


4249 


5401 


4453 




CLRALL 




4350 


5402 


4444 




ENMANl 




4251 


5403 


1150 




IAD 


KCDF 


4252 


5404 


3226 




DCA 


IOFL04 


4353 


5405 


1176 




TAD 


FLDMAX 


4254 


5406 


3156 




DCA 


TCNIRI 


4255 


5407 


1433 




TAD I 


IHSFLD 


4356 


5410 


3230 




DCA 


PTFLD4 


4357 


5411 


1153 




TAD 


REGl 


4358 


5412 


7110 




CLL RAR 




4359 


5413 


7630 




SZL CLA 




4360 


5414 


7240 




CLA CMA 




4361 


5415 


3163 




DCA 


GDREG2 


4362 


5416 


7240 


T103R, 


CLA CMA 




4363 


5417 


4451 




LDCUR 




4264 


5420 


1226 




TAD 


T0FLD4 


4265 


5421 


7041 




CIA 




4366 


5422 


1230 




IAD 


RTFLD4 


4267 


5423 


7650 




SNA CLA 




4368 


5434 


5243 




JMP 


NEXFL4 


4269 


5425 


1163 




TAD 


GDREG2 


4270 


5436 


7402 


T0FLD4, 


HLT 




4271 


5427 


3532 




DCA I 


K7777 


4272 


5430 


7402 


RTFLD4, 


HLT . 




4273 


5431 


1226 




TAD 


T0rLD4 


4274 


5432 


0114 




AND 


K0070 


4275 


5433 


1106 




TAD 


K4000 


4276 


5434 


4450 




LDCMD 




4277 


5435 


1076 




TAD 


K0040 


4378 


5436 


4455 




LDMAN 




4279 


5437 


4456 




RDBUF 




4380 


5440 


4440 




ACCMPI 




4281 


5441 


7610 




SKP CLA 




4282 


5442 


5253 




JMP 


T103E 


4283 


5443 


2156 


NEXFL4, 


ISZ 


TCNIRI 


4284 


5144 


7610 




SKP CLA 




4285 


5445 


5252 




JMP 


T103D 


4286 


5446 


1226 




TAD 


I0FLD4 


4287 


5447 


107? 




TAD 


K00I0 


4288 


5450 


3326 




DCA 


T0FLD4 


4219 


5451 


5216 




JMP 


T1B3R 


4290 


5452 


4435 


T103D, 


NERROR 




4391 


5453 


4436 


T103E, 


ERROR 





/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 



WITH A WRITE FROM 
EXTENDED FIELDS. 



/DCLR 

/ENTER MAINTENANCE MODE 

/START FIELD 

/FIELDS TO TEST -1 

/RETURN FIELD CDF 

/USE DATA 7777 IF LINK IS SET 
/SETUP COMPARE REGISTER 
/SET CURRENT ADDRESS TO 7777 



/CURRENT FIELD 
/YES, NOT THIS ONE 
/OUTBOUND DATA 
/MODIFIED CDF 
/STORE DATA 
/HOME CDF 



/WRITE 

/LOAD COMMAND REGISTER 

/ENABLE WRITE BREAK 

/GO 

/GET RESULTS 

/CHECK RESULTS 

/O.K. TRY NEXT 

/ERROR 



/DONE WITH ALL 



/SET TO NEXT FIELD 
/TRY II 

/O.K 4096 LOOPS 
/ERROR, DATA BREAK 



SES 0105 





PtL10 


VI42A 


7-HAfl-77 


13155 


4292 


5454 


5400 




TSTtP3 




4293 


5455 


4263 




4263 




4294 






/ 






4295 






/ 






4296 






/ 






4297 






/VEPIFY 


THAT DATA BREAl 


4298 






/LOCATION 7777 


IN ALL 1 


4299 






/USE DATA PATTERN 2525 


4300 






/ 






4301 


5456 


7301 


TST104, 


CLA CLL 


lAC 


4302 


5457 


4453 




CLRALL 




4303 


5460 


4444 




EHMANl 




4304 


5461 


1150 




TAD 


KCDF 


4305 


5462 


3305 




DCA 


TOFLDS 


4 306 


5463 


1176 




TAD 


FLDHAX 


4307 


5464 


3156 




DCA 


TCNTRl 


4308 


5465 


1433 




TAD I 


IHSFLD 


4309 


5466 


3397 




DCA 


PTFLD5 


4310 


5467 


1153 




TAD 


REGl 


43U 


5470 


7110 




CtL RAR 




4312 


5471 


7630 




SZl CLA 




4313 


5472 


1120 




TAD 


K2525 


4314 


5473 


1120 




TAD 


K2525 


4315 


5474 


3163 




DCA 


GDREG2 


4316 


5475 


7240 


T104R, 


CLA CHA 




4317 


5476 


4451 




LDCUR 




4318 


5477 


1305 




TAD 


TOFLDS 


4319 


5500 


7041 




CTA 




4320 


5501 


1307 




TAD 


RTFLD5 


4321 


5502 


7650 




SNA CliA 




4322 


5503 


5322 




JHP 


NEXFL5 


4323 


5504 


1163 




TAD 


00REG2 


4324 


5505 


7402 


TOFLDS, 


HLT 




4325 


5506 


3532 




DCA 1 


K7777 


4326 


5507 


7402 


RTFLD5, 


HIT 




4327 


5510 


1305 




TAD 


TOFLDS 


4328 


5511 


0114 




AND 


K0070 


4J29 


5512 


1106 




TAD 


K4000 


4330 


5513 


4450 




LDCMD 




4331 


5514 


1076 




TAD 


K0040 


4332 


5515 


4455 




LDHAN 




4333 


5516 


4456 




ROBUF 




4334 


5517 


4440 




ACCHRl 




4335 


5520 


7610 




SKP CLA 




4336 


552S 


5332 




JHP 


T104E 


4337 


5522 


2156 


NEXFL5, 


ISZ 


TCNTRl 


43)8 


5523 


7610 




SKP CLA 




4339 


5524 


5331 




JMP 


T104D 


4340 


5525 


1305 




TAD 


TOFLDS 


4341 


5526 


1073 




TAD 


K0010 


4342 


5527 


3305 




DCA 


TOFLDS 


4343 


5530 


5275 




JMP 


T104R 


4344 


5531 


4435 


T104D, 


NERROR 




4345 


5532 


4436 


T104E, 


ERROR 




4346 


5533 


5456 




TST104 





SEO 0106 
/SCOPE LOOP POINTER 
/TEXT POINTER 



IKS WITH A WRTTF FROM 
ALL EXISTING EXTENDED FIELDS, 
5252. 



/DCLR 

/ENTER MAINTENANCE MODE 

/START FIELD 

/FIELDS TO TEST •! 

/RETURN FIELD CDF 

/USE DATA 5252 IF LINK IS SET 

/SETUP COMPARE REGISTER 
/SET CURRENT ADDRESS TO 7777 



/CURRENT FIELD 
/lES, NOT THIS 
/OUTBOUND DATA 
/MODIFIED CDF 
/STORE DATA 
/HOME CDF 



/WRITE 

/LOAD COMMAND REGISTER 

/ENABLE WRITE BREAK 

/GO 

/GET RESULTS 

/CHECK RESULTS 

/O.K. TRY NEXT 

/ERROR 



/DONE WITH ALL 



/SET TO NEXT FIELD 
/TRY IT 

/O.K 4096 LOOPS 
/ERROR, DATA BREAK 
/SCOPE LOOP POINTER 
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4347 5534 4263 4263 /TEXT POINTER ^" """ 

4348 5535 5736 JMP I ,*1 

4349 5536 5600 TST105 

4350 5600 PAGE 

4351 / 

4352 /VERIFY THAT DATA BREAK WORKS FROM ALL LOCATIONS 

4353 /IN ALL EXISTING EXTENDED FIELDS. 

4354 /USE DATA PATTERN ALL COMBINATIONS 

4355 / 

4356 5600 1150 TST105, TAD KCDF 

4357 5601 3221 DCA TOFLDl 
435B 5602 1176 IAD FLDMAx 

4359 5603 3156 DCA TCNTRl 

4360 5604 1433 TAD I IHSFLD 

4361 5605 3245 DCA RTFLDl 

4362 5606 1153 IAD REGl 

4363 5607 3163 DCA GDREG2 /SETUP COMPARE REGISTER 

4364 5610 7301 T105R, CLA CLL lAC 

4365 5611 4453 CLRALL /DCLR 

4366 5612 4«44 ENMANl /ENTER MAINTENANCE MODE 

4367 5613 1221 TAD TOFLDl 
436S 5614 7041 CIA 

4369 5615 1245 TAD RTFLDl 

4370 5616 7650 SNA CLA /is IT CURRENT FIELD 

4371 5617 5255 JMP NEXFLl /YES, BYPASS 

4372 5620 1163 TAD GDREG2 

4373 5621 0000 TOFLDl, /MODIFIED CDF 

4374 5622 3554 DCA I REG2 /STORE DATA WORD 

4375 5623 1221 TAD TOFLDl 

4376 5624 0114 AND K0070 /MASK DF BITS 

4377 5625 1106 TAD K40a0 

4378 5626 4450 LDCMD /LOAD COMMAND REGISTER 

4379 5627 1154 TAD REG2 

4380 5630 4451 LDCUR /LOAD CURRENT ADDRESS 

4381 5631 1076 TAD K0040 /ENABLE BREAK 

4382 5632 4455 LDMAN /GO 

4383 5633 7301 CLA CLL lAC 

4384 5634 1154 TAD RFG2 

4385 5635 3172 DCA ADRFG /SETUP BREAK TO ADDRESS 

4386 5636 1221 TAD TOFLDl 

4387 5637 0114 AND Ka070 /MASK FIELD BITS 

4388 5640 4450 LDCMD /LOAD COMMAND 

4389 5641 1076 TAD l'0040 

4390 5642 4455 LDMAN /LOAD MAINTENANCE 

4391 5643 7300 CLA CLL 

4392 5644 1S72 TAD I ADREG /GET DATA READ 

4393 5645 0000 RTFLDl, /CURRENT FIELD CDF 

4394 5646 3173 DCA DTREG /STORE FOR PRINTER 

4395 5647 1173 TAD DTREG 

4396 5&5e> 4440 ACCMPl /CHECK RESULTS 

4397 5651 7610 S'P CLA /THIS FIELD O.K. 

4398 5652 5265 JMP T10SE /ERROR 

4399 5653 2163 ISZ GDREC7 /UPDATE WORD 

4400 5654 7000 NOP 

4401 565S 2156 NEXFLl, 152 ICNIR] 
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4402 
440) 
4404 
440S 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
441] 
4414 
441S 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4439 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4490 
4451 
4492 
4453 
4454 
4499 
4496 



9696 

5657 
5660 
9661 
9662 
9663 
5664 
5669 
5666 
5667 

5670 
9671 
5672 
5673 
9674 
9675 
9676 
9677 
9700 
9701 
9702 
9703 
5704 
5709 
9706 
5707 
9710 
9711 
5712 
9713 
5714 
9719 
5716 
9717 
9720 
5721 
5722 



7610 
5264 
1221 
1073 
3221 
5210 
4435 
4436 
5600 
4261 

4405 
1007 
3932 

1022 
0106 
7650 
5301 
2371 
9317 
4406 
4424 
7610 
9310 
4462 
4457 
7562 
4404 
7004 
7710 
5317 
4406 
4437 
7402 
7301 
4453 
5722 
0766 



9723 7301 

9724 4493 

9729 4444 

9726 1077 

9727 4495 

9730 9327 
5731 9327 



T105D, 
T105E, 



SKP CLA 

JMP 

TAD 

IAD 

DCA 

JMP 

NEBBOR 

ERPOR 

TSTlaS 

4263 



ENDHLT, 



TieSD 

TOFLDt 

K0010 

TOFLOl 

T105R 



ENDTST, 



SET 

TAD 

DCA I 

IAD 

AND 

SNA CLA 

JMP 

ISZ 

JMP 

CLASIC 

C8PASS 

SKP CLA 

JMP 

CPLF 

PRNTER 

lEXEND 

LAS 

RAL 

SPA CLA 

JMP 

CLASIC 

cmxau 

HLI 

CLA CLL lAC 

CLRALL 

JMP I ,♦! 

ISI4 



SAVENO 
K7777 
22 
K4000 

.*i 

PCOUNT 
ENDHLTtl 



.♦4 



,** 



/ALL DONE 



/TRY NEXT FIELD 
/O.K. NEXT ADDRESS 
/ERROR, DAT* BREAK 
/SCOPE LOOP POINTER 
/TEXT POINTER 

/SETUP FIELD fi 

/REPLACE BINARY 

/TEST FOR APT 

/APT77 

/NO. NORMAL RUN 

/LOOP PROGRAM 

/CHEC* FOP CONSOLE CLASSIC 

/CHECK FOR PASS COMPLETE TYPEOUT. 

/BYPASS NORMAL TYPEOUT, 



/PRINT END 
/POINTER 



OF TEST MESSAGE 



/NO STOP. 

/CHECK FOB CLASSIC, 
/ROUTINE TO EXECUTE, 
/END OF TEST 

/DCLR 

/LOOP ON PROGRAM 



/MANUAL TEST FOR 16 BIT COUNTER, 

/SET SWITCH REGISTER TO 0201 AND PRESS 

/LOAD ADDRESS, SET THE SWITCH REGISTER TO 0000, 

/THEN PRESS CLEAR AND CONTINUE. 

/SCOPE THE 16TH CARRY OUTPUT TEST POINT 

/FOB A GROUND TO ^3 VOLT SIGNAL. 

/ 

HANUL, CLA CLL lAC 

CLRALL /FIRST, CLEAR CONTROL 

ENHANl /ENTER MAINTENANCE MODE 

IAD Kei00 /ENABLE SHIFT PULSES 

LDMAN /ISSUE MAINTENANCE lOT AND 

J^P ,-1 /CAUSE HI MAIN SHIFTS TO THE 

JMP .-2 /INPUT OF THE 16 BIT COUNTER, 
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4457 
4458 

4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4S01 
4502 
4503 

4504 
4505 
4506 
4507 
4508 
4S09 
4510 



5732 
5733 
5734 

5735 
5736 
9737 
9740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5750 
5751 
5752 
9793 
9794 
9755 
9796 
5797 
5760 
5761 

9762 
9763 



9764 
9765 
5766 
5767 
5770 



5773 
5774 
577! 
5776 
5777 



3363 

1732 
3362 
2332 
1022 
0377 
7640 
5345 
1)63 
9732 
2332 
6211 
1020 
3776 
1021 
3775 
1022 
3774 
1362 
3773 
1363 
6212 
5773 

0000 
0000 



0000 
4406 
4425 

7604 
5764 



5771 0000 



1302 
002? 
0021 
0020 
0400 
6000 



6001 7)00 

6002 1112 



/THIS ROUTINE WILL BE A SKI 
/OTHERWISE II WILL EXECUTE 
/SKIP THE INSTRUCTION AFTER 
/ 
CLASIK, 

DCA 



TAD I 

DCA 

ISZ 

TAD 

AND 

SEA CLA 

JMP 

TAD 

JMP I 

ISZ 

CDF 

IAD 

DCA I 

IAD 

DCA I 

TAD 

DCA I 

TAD 

DCA I 

TAD 

CIF 

JMP I 



SAVAC 

CLASIK 

ROUTMp 

CLASIK 

0P2 

(400) 

,t3 

SAVAC 

CLASIK 

CLASIK 

10 

SWR 

(SWR) 

OPl 

(OPl) 

0P2 

C0P2) 

ROUTMP 

(ROUINS) 

SAVAC 

10 

(ROUINS) 



P INSTRUCTION FOB SYSTEMS WITHOUT CLASSIC 
THE NEXT INSTRUCTION IN FIELD AND THEN 
THAI ONE, 



/SAVE CURRENT AC, 

/GET INSTRUCTION 

/SAVE THE CLASSIC ROUTINE, 

/BUMP AFTER THE CALL, 



/IS THIS A CLASSIC SYSTEM? 
/YES, 

/NO THEN RETURN TO PROGRAM, 



ROUTMP, 

SAVAC, 

/ 

/ROUTINE TO GET SWITCHES. 

/ 

MYLAS, 



CLASIC 
C8CKSW 
7604 
J"P I 



HYLAS 



PCOUNT, 
/ 



PAGE 



/MOVE POINTERS TO FIELD 1, 



/SAVE ROUTINE IN FIELD I, 
/GO EXECUTE ROUTINE, 



/CHECK IF CLASSIC, 
/GET SWITCHES, 
/NOP IF ON APT 
/EXIT 



/SUBROUTINE TO WAIT FOR INTERRUPTS 

/IF INTERRUPT OCC'TRES GO BACK +1 

I 

lONMT, 

CLA CLL 

IAD K77C0 
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45tl 


6003 


3233 




DCA 




COMPl 






4512 


6004 


6001 




inn 








/TURN IT ON 


4513 


6005 


2233 




ISZ 




COMPl 






4514 


6006 


5205 




J"P 




.-I 






4515 


6007 


6002 




lOF 








/TURN IT OFF 


4516 


6010 


5600 




JMP 


I 


lONWT 




/NO INT OCCURED 


4517 


6011 


2200 


INIADD, 


ISZ 




lONWT 






4518 


6012 


4447 




DSKSKP 




/DISK SKIP lOI 


4519 


6013 


7410 




SKP 






/ERPOB 




4520 


6014 


9600 




JMP 


I 


lONWI 


/EXIT. 




4521 


6015 


7240 




CL» 


CMA 








4522 


6016 


1200 




T»D 




lONWT 






4523 


6017 


3200 




DCA 




lONWT 


/RESET 


RETURN ADDRESS, 


4524 


6020 


1022 




TAD 




22 






4525 


6021 


0102 




AND 




Mifin 


/MASK CLASSIC, 


4526 


6022 


7640 




SZA 


CLA 




/ON CLASSIC? 


4527 


6023 


6031 




Ksr 






/IF SO 


ALIO" KEY FLAG. 


4528 


6024 


5227 




JMP 




,*i 


/NO KEYl 


4529 


6025 


6032 




KCC 






/WAS CLEAR ELAG. 


453e 


6026 


5201 




JMP 




lONWT +1 


/RETURN 


1 AND WAIT, 


4531 


6027 


4406 




CLASIC 




/CHECK 


FOR CLASSIC. 


4532 


6030 


4436 




CBERR 




/ROUTINE TO EXECUTE, 


4533 


6031 


7402 


EPHIiTl, 


HLT 






/ERROR, 


ILLEGAL INTERRUPT 


4534 


6032 


S227 




JMP 




.-3 


/NON-RECOVERABLE ERROR. 


4535 






/ 












4536 






/ROUTINE TO 


COMPARE AC TO GDREG2 




4537 






/ 












4538 


6033 


0000 


COHPl, 













4539 


6034 


3174 




DCA 




ACREG 






454e 


6035 


1174 




TAD 




ACREG 




/SAVE AC 


4541 


6036 


7041 




CIA 










4542 


6037 


1163 




IAD 




GDREG2 






4543 


6040 


7640 




SZA 


CLA 






/SKIP IF 0,K, 


4544 


6041 


2233 




ISZ 




COMPl 




/ERROR, DON'T COMPARI 


4545 


6042 


4424 




TICK 






/GENERATE TIMING IF NEEDED 


4546 


6043 


5633 




JMP 


I 


COMPl 






4547 






/ 












4548 






/ROUTINE TO 


COMPARE CPREGI AND CRREG2 TO 


4549 






/ODBEGl 


AND 


GDREG2, 






4S5e 






/ 












4551 


6044 


0000 


C0IIP2, 













4552 


6045 


7300 




CLA 


CLL 








4553 


6046 


1162 




IAD 




GDREG1 






4554 


6047 


0145 




AND 




K0017 






4555 


6050 


7041 




CIA 










4556 


6051 


1164 




TAD 




CRREGl 






4557 


6052 


7640 




SZA 


CLA 








4558 


605 3 


5260 




JMP 




CRERR 




/NOT THE SAME 


4559 


6054 


1165 




IAD 




CRREG2 






4568 


6055 


7041 




CIA 










4561 


6056 


1163 




IAD 




GDBES2 






4562 


6057 


7640 




SZA 


CLA 








4563 


6060 


2244 


CREBR, 


ISZ 




C0MP2 




/ERROR, NOT IHE SAME 


4564 


6061 


4424 




TICK 






/TIMING 


FOB API IF NEEDED 


4565 


6062 


5644 




JMP 


I 


eOHP2 







SEO 0110 
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4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4S79 
4580 
4581 
4562 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4998 
4599 
4600 
4«en 
4602 
4603 
46tl4 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 



6063 
6064 
6065 
6066 
6067 
6070 
6071 
6072 
6073 
6074 



6075 
6076 
6077 
6100 
6101 
6102 
6103 
6104 
6105 



6106 
6107 
6110 
6111 
6112 
6113 
6114 
6115 
6116 



6117 
6120 
6121 



6124 
6125 
6126 
6127 



0000 
6745 
5272 
4406 
4436 
74B2 
5266 
3166 
1166 
9663 



3172 
1172 
6744 
5675 
4406 
4436 
7402 
9302 



3171 
1171 
6743 
9706 
4406 
4436 
7402 
5313 



3170 
1170 



61]} 6746 
6123 9717 



4406 
4436 
7402 
5324 



/SUBROUTINE TO 

/ 

RDST, 

I0I9, DRSI 
JMP 

CLASIC 
C9ERR 

ERHLT5, HLT 
JMP 
DCA 
TAD 
JMP I 
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READ STATUS REGISTER 



SEO 0111 



.♦5 



,-3 

STREG 
STREG 
RDST 



/BEAD STATUS lOI 
/O.K. NO SKIP, 
/CHECK FOB CLASSIC. 
/ROUTINE TO EXECUTE, 

/SKIP TRAP 
/NON.RECOVEBABLE ERROR. 
/SAVE RESULTS 

/EXIT 



/SUBROUTINE 10 LOAD CURRENT ADDRESS REGISTER 

/ 

LDCA, 



I0T4, 



DCA 
TAD 
DLCA 
JMP I 
CLASIC 
C8ERR 
ERHLI4, HLT 
JMP 



/SUBROUTINE TO 

/ 

LOAD, 

DCA 
TAD 

I0T3, DLAG 

JMP I 

CLASIC 

CSERR 

ERHLT3, HLT 
JMP 



ADREG 
ADREG 



LDCA 



.-3 



/SAVE IN ADDRESS 

/LOAD CURRENT ADDRESS lOI 
/EXIT 
/CHECK FOR CLASSIC, 
/ROUTINE TO EXECUTE, 
/SKIP TRAP ERROR 
/NON-RECOVERABLE ERROR. 



LOAD DISK ADDRESS REGISTER 



DAREG 
DAREG 



/SAVE OUTBOUND DATA 

/LOAD DISK ADDRESS REGISTER 
/EXIT 
/CHECK FOR ClASSIC. 
/ROUTINE TO EXECUTE, 
/SKIP TRAP ERROR 
/NON-RECOVERABLE ERROP, 



/SUBROUTINE TO LOAD COMMAND REGISTER 



LDCM, 



I0T6, 



DCA 


CMREG 


IAD 


CMREG 


DLDC 




JMP I 


LDCM 


CLASIC 




C8EPR 




HM 




JMP 


,-3 



/SAVE OUTBOUND DATA 

/LOAD COMMAND REGISTER 

/EXIT 
/CHECK FOP CLASSIC, 
/ROUTINE TO EXECUTE, 
/SKIP TRAP ERROR, 
/NON-RECOVERABLE EPBOP. 



/SUBROUTINE TO ISSUE "DSKP" DISK SKIP IQT 



6130 0000 
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4621 


6131 


6741 


lOTl, 


DSKP 






/DISK SKIP lOT 


4622 


6132 


7410 




SKP 






/DID NOT SKIP 


4623 


6133 


2330 




ISZ 


SBKP 






4624 


6134 


5730 




JMP I 


SDKP 




/EXIT 


4625 






/ 










4626 






/SUBROUTINE TO 


ISSUE "DCLR 


" CLEAR lOT 




4627 






/ 










4628 


613! 


0000 


CLDB, 











4629 


6136 


6742 


I0T2, 


DCIB 






/DCLR "CLEAR IOI» 


4630 


6137 


5735 




JMP I 


CLDP 




/EXIT 


4631 


6140 


4406 




CLASIC 




/CHECf 


' FOR CLASSIC. 


4632 


6141 


44)6 




C8ERR 




/ROUTINE TO EXECUTE. 


4633 


6143 


7402 


ERHLT2 


, HLT 




/SKIP 


TRAP ERROR 


4634 
4635 


6143 


5)40 




J«P 


.-3 


/NON.RECOVERABLE ERROR, 


4636 






/ 










4637 






/SUBROUTINE TO 


ISSUE "DMANi 


■ MAINTENANCE lOT 


4638 






/ 










46)9 


6144 


0000 


LDMN, 











4640 
4641 


6145 
6146 


6747 
5744 


I0T7, 


OMAN 
JNP I 


LDMN 




/"OMAN" MAINTENANCE IDT 
/EXIT 


4642 


6147 


4406 




ClASIC 




/CHECH 


'■ FOP CLASSIC. 


4643 


6150 


4436 




C8ERP 




/ROUTINE TO EXECUTt:. 


4644 


6151 


7402 


ERHLI7, 


, HLT 




/SKIP 


TRAP ERROR. 


4645 


6152 


5347 




JWP 


• -) 


/NON-RECOVERABLE ERROR. 


4646 




6200 


PAGE 








■ 


4647 






/ 










4648 






/SUBROUTINE TO 


SHIFT, THEN 


READ DISK 




4649 






/ADDRESS INTO DATA BUFFER. 


12 SHIFTS 




4650 






/ 










4651 


6200 


0000 


ROAD, 











4652 
4653 


6201 
6202 


4445 
1134 




ENMAN2 
TAD 


M5 


/ENTER 


MAINTENANCE MODE ♦ DB4«1 


4654 


6203 


315! 




DCA 


SBCNTl 


/SETUP 


COUNTER 


4655 


6204 


1103 




TAD 


K1000 


/ENABLE SHIFT CRC 


4656 


6305 


1100 




TAD 


K0200 


/ENABLE SHIFT SURFACE AND SECTOR 


4657 


6206 


4455 




LDMAN 




/LOAD 


MAINTENANCE 


4658 


6207 


2155 




ISZ 


SBCNTl 


/FOUR 


SHIFTS 


4659 


6210 


5206 




JMP 


• -2 


/MORE 


TO GO 


4662 


6211 


7300 




CLA CLL 








4661 


6212 


1135 




TAD 


M7 






4662 


621) 


3155 




DCA 


SBCNTl 






466) 


6214 


1103 




TAD 


K1000 




/SHIFT CRC 


4664 
4665 


6215 
6216 


4455 
2155 




LDMAN 
ISZ 


SBCNTl 




/LOAD MAINTENANCE lOT 


46« 

4667 


6217 
6220 


SJI5 
7)00 




jwp 
CLA CLL 


.-2 




/SHIFT 12 BITS 


4668 


6221 


1074 




TAD 


K0020 






4669 
4670 
4671 


6222 
6223 


4455 

)171 




LDMAN 
DCA 


DAREG 




/READ DATA BUFFER 
/SAVE RESULTS 


4672 
















4673 


6224 


1171 




TAD 


DARES 






4674 
4675 


6225 


5600 


/ 


JMP 1 


RDAD 




/EXIT 



SEQ 0112 
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4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

470) 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

47J« 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 



6226 
6227 
6230 
6231 
62)2 
62)3 
62)4 
6235 
6236 
6237 



6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6350 
6251 
6252 
6253 
6254 
6255 



6356 
6257 
6260 
6261 
6262 



6263 
6264 
6265 
6266 
6267 
6270 
6271 
6272 
6273 
6274 



0000 
7330 
445! 

1074 
4455 
3167 
1167 
3173 
1173 
5626 



0000 
444! 
1136 
31!! 
1102 
445! 
3155 
5245 
7300 
1074 
4455 
3170 
1170 
5640 



73)0 
445! 
7)00 
5656 



0000 
4445 
1136 
31!! 
1103 
445! 
215! 
5270 
7300 
1074 



/SUBROUTINE TO READ DATA BUFFER TO AC 

/ 

RDBF, 

CLA CLL CML RAR 

LDMAN 



IAD 


K0020 


LDMAN 




DCA 


DBREG 


TAD 


DBREG 


DCA 


DIREG 


TAD 


DTREG 


JMP I 


RPBF 



/ENTER MAINTENANCE "ODE 

/LOAD MAINTENANCE 



/SUBROUTINE TO SHIFT COMMAND REGISTER TO 
/DATA BUFFER THEN RFAD DATA BUFFER 



ENMAN2 




TAD 


M12 


DCA 


SBCNTl 


TAD 


K0400 


LDMAN 




ISZ 


SBCNTl 


JMP 


.-2 


CLA CLL 




TAD 


KP1020 


LDMAN 




DCA 


CMREG 


TAD 


CMREG 


JMP I 


RDCM 



/ENTER MAINTENANCE MODE ♦ DB4«1 

/12 BIT SHIFT 

/ENABLE BIT FOR SHIFT COMMAND 

/LOAD AND GO 

/SHIFT 12 

/ENABLE READ BUFFER 
/LOAD AND GO 
/SAVE IT 



/ROUTINE TO ENTER MAINTENANCE MODE 

/ 

MAINl, 



CLA CLL CML RAR 

LDMAN 

CLA CLL 

JMP I MAINl 



/ENABLE MAINTENANCE BIT 
/ENTER MAINTENANCE MODE 



/SUBROUTINE TO SHIFT CRC REGISTFR TO DATA 

/BUFFER THEN READ IT. 

/ 

BDCR, 








ENMftN2 




TAD 


M12 


DCA 


SBCNTl 


TAD 


K10e0 


LDMAN 




ISZ 


SBCNTl 


JMP 


■ -2 


CLA CLL 




T»D 


KO1020 



/ENTER MAINTENANCE "ODE t DB4«1 

/12 SHIFTER 
/ENABLE SHIFT CRC 
/LOAD AND GO 

/I2 BIT SHIFT 

/ENABLE READ PUFFER 
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4731 


6275 


445! 




LnHAN 




4732 


6276 


316! 




DCA 


CRREG2 


4733 


6277 


4445 




ENHAN2 




4734 


63Ke 


1136 




lAO 


M12 


4735 


6301 


3t!! 




DCA 


SBCNTl 


4736 


6302 


1103 




TAD 


K1000 


4737 


6303 


445! 




LDMAN 




4738 


6304 


215! 




rsz 


SBCNTl 


4739 


6305 


5303 




JI4P 


.-2 


474e 












4741 


6306 


7300 




CIA CLL 




4742 


6307 


1074 




TAD 


K0020 


4743 


6310 


4455 




LDMAN 




4744 


6311 


014! 




AND 


K0017 


474! 


6312 


3164 




DCA 


CPREGl 


4746 


6313 


5663 




JMP I 


RDCR 


4747 






/ 






474S 






/ 






4749 






/SUBROUTINE TO 


PRINT TWO OCTAL 


475B 






/ 






4751 


6314 


0000 


TOCT, 







4752 


6315 


3155 




DCA 


SBCNTl 


4753 


6316 


1155 




TAD 


SBCNTl 


4754 


6317 


7010 




PAR 




4755 


6320 


7012 




RTR 




4756 


6321 


0072 




AND 


K0007 


4757 


6322 


1063 




TAD 


K0260 


475a 


6323 


4434 




IIPE 




4759 


6324 


115! 




TAD 


SBCNTl 


476B 


6325 


007 2 




AND 


K0007 


4761 


6326 


106 3 




TAD 


K0260 


4762 


6327 


4434 




TYPE 




4763 


6330 


!714 




JMP I 


TOCT 


4764 






/ 






4765 






/ 






4766 






/ 






4767 






/ROUTINE TO DO 


CRLF 


4768 






/ 






4769 


6331 


0000 


UPONE, 







477a 


6332 


7300 




CLA CLL 




4771 


6333 


1146 




TAD 


K0215 


4772 


6334 


4434 




TYPE 




4773 


6335 


1147 




IAD 


K0212 


4774 


6336 


4434 




TYPE 




4775 


6337 


4434 




TYPE 




4776 


6340 


!731 




JMP I 


UPONE 


4777 




6400 


PAGE 






4778 






/ 






4779 






/ROUTINE TO PRINT FOUR OCTAL 


4780 






/ 






4781 


6400 


0000 


FROCI, 







4782 


6401 


7006 




RTL 




4783 


6402 


7006 




RTL 




4784 


6403 


3777' 




DCA 


UPONE 


4785 


6404 


1130 




TAD 


K7774 



SEO 0114 



/SAVE IT 
/ENTER MAINTENANCE MODE ♦ PB4«1 

/12 BIT SHIFTER 
/ENABLE SHIFT CRC 
/LOAD AND GO 

/12 BIT SHIFT 
/ENABLE READ BUFFER 



/SAVE OTHER HALF 
/EXIT 



/PRINT FIRST BYTE 



/PRINT SECOND BIT 
/EXIT 



/TYPE ONE NULL 
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4786 


6405 


3776' 




DCA 


TOCT 


4787 


6406 


1777' 




TAD 


UPONE 


4788 


6407 


0072 




AND 


K0007 


4789 


6410 


1063 




TAD 


K0260 


4790 


6411 


4434 




TYPE 




4791 


6412 


1777' 




IAD 


UPONE 


4792 


6413 


7006 




RTL 




4793 


6414 


7004 




RAL 




4794 


6415 


3777' 




DCA 


UPONE 


4795 


6416 


2776' 




ISZ 


TOCT 


4796 


6417 


5206 




JMP 


• •11 


4797 


6420 


1261 




TAD 


K0240 


4798 


6421 


4434 




TYPE 




4799 


6422 


5600 




JMP I 


FROCT 


4800 






/ 






4801 






/SUBROUTINE TO 


PRINT TEXT 


4802 






/ 






4803 


6423 


0000 


PRN, 







4804 


6424 


7300 




CLA CLL 




4805 


6425 


1623 




TAD I 


PRN 


4806 












4807 


6426 


2723 




ISZ 


PRN 


4808 


6427 


3200 




DCA 


FROCT 


4809 


6430 


1600 




IAD I 


FROCI 


4910 


6431 


0112 




AND 


K7700 


4811 


6432 


7450 




SNA 




4812 


6433 


5257 




JMP 


EXIT 


4813 


6434 


7500 




SMA 




4814 


6435 


7020 




CML 




4815 


6436 


7001 




lAC 




4816 


6437 


7012 




RTR 




4817 


6440 


7012 




PTR 




4818 


6441 


7012 




RTR 




4819 


6442 


4434 




TYPE 




4820 


6443 


1600 




TAD I 


FROCI 


4821 


6444 


011! 




AND 


K0077 


4822 


6445 


74!0 




SNA 




4823 


6446 


5257 




JMP 


EXIT 


4824 


6447 


1262 




TAD 


K3740 


4825 


64!0 


7500 




SMA 




4826 


6451 


1124 




IAD 


K4100 


4827 


6452 


1261 




IAD 


K0240 


4828 


6453 


4434 




TYPE 




4829 


6454 


2200 




ISZ 


FROCT 


4830 


64!5 


7300 




CLA CLL 




4831 


6456 


5230 




JMP 


PRN»5 


4832 


6457 


7300 


EXIT, 


CLA CLL 




4833 


6460 


5623 




JMP I 


PRN 


4834 






/ 






4835 


6461 


0240 


K0240, 


0240 




4836 


6462 


3740 


K3740, 


3740 




4837 






/ 






4838 






/ROUTINE TO TYPE 


4839 






/ 






4840 


6463 


0000 


PRINT, 








/GET POINTER 
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4841 


6464 


4406 


4842 


6465 


4435 


4843 


6466 


7410 


4844 


6467 


5663 


4845 


64711 


6046 


4846 


6471 


6041 


4847 


6472 


5271 


4848 


6473 


6042 


4849 


6474 


7200 


48se 


6475 


5663 


4951 






4B52 






4853 






4894 


6476 


0000 


4855 


6477 


4404 


4856 


6500 


0102 


4857 


6501 


7650 


4858 


6502 


9676 


4859 


6503 


4442 


486a 


6504 


4456 


4861 


6905 


7300 


4862 


6506 


1136 


4863 


6507 


3263 


4864 


6510 


1100 


4865 


6911 


4459 


4866 


6912 


2263 


4867 


6513 


9311 


4868 


6914 


7300 


4869 


6915 


1074 


4870 


6516 


4455 


4871 


6517 


3171 


4S72 


6520 


4454 


4873 


6521 


4443 


4874 


6522 


4462 


4875 


6523 


1125 


4876 


6524 


2276 


4877 


6525 


5676 


4878 






4879 


6576 


6314 


4880 


6577 


6J31 

6600 


4881 






4882 






4883 






4884 






4985 


6600 


0900 


4886 


6601 


7300 


4887 


6602 


4425 


4888 


6603 


1600 


4889 


6604 


3340 


489« 


6605 


4404 


4891 


6606 


7700 


4892 


6607 


5217 


4893 


6610 


4404 


4894 


6611 


7006 



PPINT 



CLASIC 

C8irpE 

SKP 

JMP I 

TLS 

TSF 

JMP 

ICF 

CLA 

J"P I 



/ROUTINE TO GET ALL REGISTERS 
/ 



LAS 




AND 


Kei400 


SNA CLA 




JMP I 


DUMP 


RD5TAT 




RDBUF 




CLA CLL 




TAD 


MI2 


DCA 


PRINT 


TAD 


K0200 


LDMAN 




ISZ 


PRINT 


JMP 


.-2 


CLA CLL 




IAD 


K0020 


LRMAN 




DCA 


DAREG 


RDCHC 




ROCMD 




CRLF 




TAD 


K760a 


ISZ 


DUMP 


JMP 1 


DUMP 



/CHECK FOR CLASSIC. 
/ROUTINE TO EXECUTE, 

/INHIBIT TYPE, 



AFTER "ERHLI9" 



/MASK SWITCH 3 

/WAS II GFT ALL 

/NO 

/GET STATUS 

/READ BUFFER 



SEO 0116 



/12 BIT COUNTER 

/ENABLE SHIFT SECTOR AND SURFACE 

/LOAD MAINTENANCE 

/12 BIT SHIFT 



/ENABLE READ BUFFER 
/LOAD MAINTENANCE 
/SAVE SURFACE AND SECTOR 
/READ CRC 
/READ COMMAND 



PACE 

/ 

/SUBROUTINE FOR "ERRORS," 

/ERROR TYPEOUTS, 

/ 

ERRO, 



CLA CLL 

AERRO 

TAD I 

DCA 

LAS 

SMA CLA 

JMP 

LAS 

RTL 



ERRO 
SERRO 



,*le 



/REPORT 



SCOPE LOOPS, AND 



/REPORT ERROR TO APT IF NEED BE, 

/GET SCOPE LOOP POINTER 

/SAVE FOR RETURN 

/GET SWR0 

/IS IT SCOPE LOOP 
/NO SCOPE 
/GET SWITCH 2 



/ 
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4895 
4896 


6612 
6613 


7710 
5740 


SPA CLA 

JMP I SERRO 


/INHIBIT ERROR BELL 
/YES 


4897 


66J4 


1(01 


TAD 


K0207 






4898 


6615 


4434 


TYPE 








4899 


6616 


5740 


JMP I 


SERRO 


/NO 




4900 


6617 


2200 


ISZ 


ERRO 




4901 


6620 


4462 


CRLF 








4902 


6621 


4462 


CRLF 








4903 
4904 

4905 

4906 


6622 
6623 
6624 
6625 


1600 
0145 
1346 
3226 


TAD I 
AND 
TAD 
DCA 


ERRO 
Ka017 
HEDIAD 
• + 1 


/HAKE 


/GET TEXT POINTER 
/MASK 8-11 
ERROR HEADER IAD 


4907 
4908 


6626 

6627 


7402 
3231 


HLT 
DCA 


,42 


/MODIFIED HEADER IAD 


4909 
4910 


6630 
6631 


4457 
7402 


PPNTER 
HLT 






/MODIFIED HEADER [ 


4911 


6632 


4462 


CRLF 








4912 
4913 


6633 
6634 


4457 
7400 


PRNIER 
TEXPC 






/PRINT PCl 


4914 


6635 


7340 


CLA CLL 


CMA 






4915 
4916 
4917 
4918 


6636 
6637 
6640 
6641 


1200 
4460 
1600 
7104 


TAD 
OCTEL 
TAD I 
CLL RAL 


ERRO 
ERRO 




/GET PC POINTER 
/PRINT PC STORED 
/GET TEXT POINTER 


4919 


6642 


7420 


SNL 








4920 
4921 


6643 


5257 


JMP 


NTGD 




/NOT GDI REGISTER 


4922 














4923 


6644 


3200 


DCA 


ERRO 






4924 
4925 


6645 
6646 


4457 
7402 


PRNTER 
TEXGD 






/PRINT GDI 


4926 


6647 


1200 


IAD 


ERRfl 






4927 
4928 


6650 
6651 


7700 
5J54 


SMA CLA 
JMP 


f + 3 




/WAS IT A 6 BIT OC 

/NO 

/GET DATA 

/PPINT TWO OCTAL 


4929 
4930 
4931 


6692 
6693 
6654 


1162 
4461 
1163 


TAD 

TWOCI 

TAD 


GDREG1 
GDREG2 




4932 
493) 


6655 
6696 


4460 
7610 


OCTEL 
SKP CLA 






/PRINT FOUR OCTAL 


4934 


6657 


3200 


NTGD, DCA 


ERRO 






4935 
4936 


6660 
6661 


1200 
7104 


TAD 
CLL RAL 


EPRO 




/GET TEXT POINTER 


4937 


6662 


7420 


SNL 








493B 


6663 


5274 


J"P 


NTCRC 






4939 


6664 


3200 


DCA 


ERRO 






4940 
4941 


6665 
6666 


4457 
7404 


PBNTER 
TEXCR 






/PRINT CPl 


4942 


6667 


1164 


TAD 


CRRESl 






4943 


6670 


4461 


TWOCI 






/PRINT 


4944 


6671 


1165 


TAD 


CRREGJ 






4945 
4946 


6672 
6673 


4460 
7610 


OCTEL 
SKP CLA 






/PRINT FOUR OCTAL 


4947 


6674 


3200 


NICPC, DCA 


EBPO 






4943 


6675 


1142 


TAD 


XTEXT 






4949 


6676 


3345 


DCA 


PCNTR2 
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49Sa 
49S1 
49S2 
49S3 

49S4 
495! 
4956 
4957 
4956 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
497J 
4974 
4975 
4976 
4977 
4979 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
499e 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 

S0ee 

5001 
5002 
5003 
5004 



6677 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 
6730 
6731 
6732 
6733 
6734 
6735 
6736 
6737 

6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6790 
6751 
6752 
6753 
6754 
6755 
6756 
6757 



1341 
3010 
1131 
3344 
1200 
7500 
5332 
7104 
3200 
1345 
2345 
2345 
SSI'S 
4457 
7402 
1410 
4460 
2344 
5303 
1007 
3532 
4406 
4436 
7402 
4741 
5740 
5257 
7104 
3200 
234! 
2345 
2010 
5320 



6476 
7426 
0165 



1347 
7424 
7437 
7453 
7471 
7502 
7514 
7526 
7536 
7551 



TAD 

DCA 

TAD 

DCA 
STBAUT, TAD 

S"A 

JHP 

CLL RAL 

DCA 

TAD 

IS! 

I5Z 

DCA 

PPNIEP 

HLT 

TAD I 

OCTEL 
BAKPNT, ISZ 

JMP 

TAD 

DCA : 

CLASIC 

C8EPR 
ERHLT9, HLT 

J"S I 

JMP I 

J«P 

CLL PAL 

DCA 

ISZ 

ISZ 

ISZ 

JHP 





XPEG 

AUTOIO 

l<7771 

PCNTPl 

EPRO 

NOTEX 

EPRO 
PCNTR2 
PCNTR2 
PCNTR2 
. + 2 



NOTEX, 



AUTO10 

PCNTPl 
STRAUT 
SAVEND 
K7777 



XDUMP 
SERRO 
NTGD 

EPRO 

PCNTR2 

PCNTB7 

AUTO10 

BAKPNT 



SERRO. 

XDUMP, 

XTEXT, 

XREG, 

PCNTBl, 

PCNTR2. 

HEDTAD, 

HEDLST, 



/COUNTER FOP • OF HEADS 
/GET TEXT POINTER 



/NOT THIS ONE 



/C.FT TEXT MESSAGE POINTER 



/STOPF FOR PRNIEP 

/PRINT XXI 

/"ODIFIF.D TEXT POINTER 

/PPINT FOUR OCTAL 

/CHECK FOR NEXT XXl 
/GET CONSTANT SAVED 
/REPLACE LAST LOCATION 
/CHECK FOP CLASSIC, 
/ROUTINE TO EXECUTEIUI 
/ALL RECOVERABLE ERROP HALTS 
/CHECK FOR GET ALL REGISTERS 

/TRY SAME TEST AGAIN 
/GET ALL REGISTERS 



DUMP 

TEXST 

CPREG2 

e 


TAD HEDLST 

ERTXl 

ERIX2 

ERTX3 

EPTX4 

EPTX5 

ERTX6 

ERTX7 

ERIX8 

EPTX9 
/ 
/ 

/ROUTINE TO ENTER MAINTENANCE 
/SET 0B4«1 TO ENABLE SHIFT TO 
/ 



MODE AND 
LOWER SILO 
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5005 


6760 


0000 


HAIN2, 











5006 


6761 


7330 




CLA 


CLL 


CML RAR 


/ENABLE SET MAINTENANCE MODE 


5007 


6762 


4455 




LDM»N 




/LOAD MAINTENANCE 


5008 


6763 


7010 




RAR 






/ENABLE SET DB4sl 


5009 


6764 


4455 




LDMAN 




/LOAD MAINTENANCE 


5010 


6765 


7300 




CT,A 


CLL 






5011 


6766 


5760 




JXP 


I 


MAIN2 




5012 




7 000 


PAGE 










5013 






/ 










5014 






/SUBROUTINE 


FOR 


"NO ERRORS" AND 


SCOPE 


5015 






/LOOPS, 


UPDATE 1 


JP COONTFR "REG! 


" AND 


5016 






/DOWN COUNT 


"REG2" ON EVERY ENTRY, 


5017 






/ 










5018 


7000 


0000 


NERRO, 











5019 


7001 


4406 




CLASIC 




/CHECK FOP CLASSIC, 


5020 


7002 


4440 




CSCKPA 




/ROUTINF TO EXECUTE, 


5021 


7003 


7 000 




NOP 








5022 


7004 


4404 




LAS 






/GET SWITCH 4 


5023 


7005 


0100 




AND 




K0200 


/MASK 


5024 


7006 


765" 




SNA 


CLA 




/WAS IT SET 


5025 


7007 


5215 




JMP 




STPHLT *\ 


/NO DON'T HALT 


5026 


7010 


1007 




TAD 




SAVEND 


/GET BINARY END 


5027 


7011 


3532 




DCA 


I 


K7777 


/REPLACE IT 


5028 


7012 


4406 




CLASIC 




/CHECK FOP CLASSIC. 


5029 


7013 


4437 




CBINQU 




/WAIT FOR OPERATOR, 


5030 


7014 


7402 


STPHLT, 


HI.T 






/STOP PROGRAM HALT 


5031 


7015 


2200 




ISZ 




NERRO 


/UPDATE PC STORE 


5032 


7016 


1600 




TAD 


I 


NERRO 


/GFT SCOPr LOOP POINTER 


5033 


7017 


3237 




DCA 




SNEBPO 


/STORE FOP RETURN 


5034 


7020 


4404 




LAS 






/GET SWITCH a 


5035 


7021 


7710 




SPA 


CLA 




/ENTER SCOPE LOOP 


5036 


7022 


5637 




JMP 


I 


SNERRO 


/YES 


5037 


7023 


2153 




ISZ 




BEGl 


/UPDATE UPCOUNTEP 


5038 


7024 


7610 




SKP 


CLA 






5039 


7025 


5231 




JMP 




NEXTST 


/END OF PARTICULAR TCST 


5040 


7026 


1153 




TAD 




REGl 




5041 


7027 


7140 




CLL 


CMA 






5042 


7030 


3154 




DCA 




REG2 


/SETUP DOWN COUNTER 


5043 


7031 


4424 


NEXT, 


TIC* 






/REPLACED WITH TIMING IF ON API 


5044 


7032 


5637 




JMP 


I 


SNERRO 


/PACK TO SAME TEST 


5045 


7033 


2200 


NEXTST, 


ISZ 




NERRO 


/UPOATF PC STOP! 


5046 


7034 


2200 




ISZ 




NERRO 


/UPDATE PC STORE 


5047 


7035 


5600 




JMP 


I 


NEPRO 


/TO NEXT SEOUFNTIAl TES 


5048 






/ 










5049 


7H36 


0000 


TOTST, 


B 








wm 


7037 


MM 


SNEPBO, 











5051 






/ 










5052 






/SUBROUTINE 


TO 


SETUP FIELD 




5053 






/ 










5054 


7040 


0!»00 


SETUP, 











5055 


7041 


1433 




TAP 


I 


THSFLD 


/OFT HOME DF 


5056 


7B42 


3252 




DCA 




BAKFLn 




5057 


7043 


1151 




TAD 




KRMF 


/GET RMF FOP INT, KETUHN 


5058 


7044 


6201 




CDF 







/SWITCH FIELD (» 


5059 


7045 


3465 




DCA 


I 


KfBwl 





SEQ 0119 





Pkl.t0 


VUJA 


7-MAR.77 


13155 


PAGE 


5160 


7046 


1:54 


IAD 


K54fl3 




se6i 


7B47 


3466 


DCA I 


K(i0e2 




5063 


70SD 


1031 


TAD 


INTRO 




506) 


7051 


3467 


DCA I 


K0003 




5064 


7052 


7402 


BAKFLD, HLT 






5065 


7053 


5640 


JHP I 


SETUP 




5066 






/ 






5067 


7054 


540) 


K54B3, 5403 






506* 






/ 






5069 






/ROUTINE TO LOAD UPPER 


PurrER 


5070 






/ 






5071 


7055 


0000 


UPPER, 






5*71 


7056 


1236 


DCA 


TOIST 




S07I 


7057 


7301 


CLA CLL 


I AC 




5074 


7060 


3237 


DCA 


SNERRO 




5075 


7061 


1136 


TAD 


H12 





/JHP I 3 FOR LOC. 2 
/GET ADDRESS RETURN 



/HOME DF 



/SAVE DATA 



/SETUP SHIFTER MASKER 



1 


PALt0 


V142A 


7-MAF. 


'77 


13155 PAGE 


11 


5076 


7062 


3200 




DCA 


NERRO 




5077 


7063 


4444 




ENMANl 






5078 


7064 


1236 


UPPRl, 


TAD 


TOIST 




5079 


7065 


0237 




AND 


SNERRO 




5010 


7066 


7640 




8ZA CLA 






5001 


7067 


1066 




TAD 


K0003 




5082 


7070 


1077 




IAD 


K0100 




5083 


7071 


4455 




LDMAN 






5084 


7072 


7300 




CLA CLL 






5085 


7073 


1237 




IAD 


SNERRO 




5086 


7074 


7104 




CIL RAL 






5087 


7075 


3237 




DCA 


SNERRO 




5088 


7076 


2200 




IS2 


NERRO 




5089 


7077 


5264 




JMP 


UPPRl 




5090 


7100 


5655 




JMP I 


UPPER 




5091 






/ 








5092 






/ROUTINE TO CHANGE PROGRAM DEVIC 


5093 






/ 








5094 


7101 


4406 


CHANG, 


CLASIC 






5095 


7102 


4431 




CBSWIT 






5096 


7103 


700« 




NOP 






5097 


7104 


4404 




LAS 






5098 


7105 


0332 




AND 


A0770 




5099 


7106 


3236 




DCA 


TOIST 




5100 


7107 


1334 




IAD 


CHNPOT 




5101 


7110 


325! 




DCA 


UPPER 




5102 


7111 


1333 




TAD 


CCNTPl 




5103 


7112 


3237 




DCA 


SNERRO 




5104 


7113 


1655 


CHANGP, 


. IAD I 


UPPER 




5105 


7114 


3240 




DCA 


SETUP 




5106 


7115 


1640 




TAD I 


SETUP 




5107 


7116 


0331 




AND 


A7Ba7 




5108 


7117 


1236 




TAD 


TOIST 




5109 


7120 


3640 




DCA I 


SETUP 




5119 


7121 


2255 




ISZ 


UPPER 




5111 


7122 


2237 




ISZ 


SNERRO 




5113 


7123 


5313 




JMP 


CHANGR 




5113 


7124 


4406 




CI.ASIC 






5114 


7125 


4436 




C8ERR 






5115 


7126 


7402 


CHNHLT, 


HLT 






5116 


7127 


5730 




JMP I 


XRGN 




5117 














5118 






/ 








5119 


7130 


0200 


XBGN, 


BGN 






5120 






/ 








5121 


7131 


7007 


A7e07, 


7007 






5123 


7132 


0770 


Aa770, 


0770 






5123 


7138 


7771 


CCNTRl, 


7771 






5124 


7134 


7135 


CHNPOI, 


CHNPOT < 


1 




5125 


7135 


6131 




lOTl 






5126 


7136 


6136 




lOT? 






5127 


7137 


6111 




I0I3 






5128 


7140 


6100 




I0T4 






5129 


7141 


6064 




I0I5 






5130 


7142 


6122 




inT6 







/SETUP COUNTER 

/ENTER MAINTENANCE MODE 

/GET DATA 

/MASK 

/A ONE OR ZER0?7?7 

/A ONEIUI 

/ENABLE SHIFT 

/LOAD MAINTENANCE 



/COUNT BITS 
/MORE TO GO 
/UPPER BUFFER LOADED 



/CHECK FOP CLASSIC. 
/ROIITTnE TO EXECUTE, 



SEO 0121 



/SAVE DESIRED 



/A FEW POINTERS 
/GET ADDRESS POINTER 
/SAVE IT 
/GET OLD lOT CODE 

/ADD IN DESIRED 
/CHANGE CODE 
/UPDATE POINTER 
/UPDATE CHANGE COUNTER 

/CHECK FOR CLASSIC, 
/ROUTINE TO EXECUTE, 
/DEVICE CODES CHANGED, PRESS 
/CONTINUE OP IF ON CONSOLE 
/PACKAGE HIT CONTROL F. 



PALia V14JA 7.MAP.77 13155 PAGE U-l 

SEQ 0123 

5131 7143 6145 I0T7 

513J / 

5133 7JBe PAGE 

5134 /THIS ROUTINE TEST FOp BEING ON THE APT OR ACT SYSTtMs. 

5135 /IF ON APT CONSOLE PACKAGE AND SWITCH REGISTER FUNCTIONS 

5136 /ARE NOP'S. 

5137 / 

5138 / 

5139 72aa ^»^e apts, e 

5140 7201 1022 TAD 22 /HAPHArE CONFIGURATION 

5141 7202 0106 AND K4000 

5142 7203 7650 SNA CLA /SKIP IF ON ACT OR API 

5143 72B4 5600 JMP I APTS /RETURN TO "AIN PROGRAM 

5144 7305 1023 TAD 22 

5145 7306 0264 AND K7377 /HAKE SURE CONSOLE DISABLED 

5146 7207 3032 DCA 22 

5)47 7210 1107 TAD K7e00 

5149 7211 3663 DCA I XMYLAS /NOP SWITCH REGISTER FUNCTIONS 

5149 7212 1200 IAD APTS 

5150 7213 1070 TAD K0004 

5151 7214 3200 DCA APTB 

5152 7215 1021 TAD 21 /GET MEHOPV SIZE 

5153 7216 7012 RTR /SET UP MEMORY SIZE 

5154 7217 5600 JMP I APIS /NOW ON APT, RETURN IS PLUS 4, 

5155 / 

5156 /THIS ROUTINE WILL GENERATE THE TIMING REOUlRED BY 

5157 /APT OR ACT, 

5158 / 

5159 7320 0000 KTICK, 

5160 7221 1022 IAD 22 

5161 7232 0106 AND K40e0 /SEE IF ON APT 
5163 7333 7650 SNA CLA 

5163 7224 5620 JMP I KTICK /NOT ON APT 

5164 7225 2266 ISl CLKCNT /INCREMENT COUNTER 

5165 7226 5620 JMP I KTICK /NO 

5166 7227 6^02 lOF /DISABLE INTERUPTS 

5167 7230 6214 RDF /GET PRESENT DATA FIELD 

5168 7231 1150 TAD KCDF 

5169 7232 3233 DCA .♦! /ESTABLISHES CURRENT DATA FIELD 

5170 7233 7402 HLT /REPLACED WITH CURRENT DATA FIELD 

5171 7334 6272 CIF 70 /FIELD 7. LOCATION OF UV PROM 
5173 7335 4777 JMS I (6500 

5173 7336 1376 IAD (-2777 /ABOUT 1,5 SEC ON MOST TESTS 

5174 7387 3266 DCA CLKCNT 

5175 7340 5620 JMP I KTICK 

5176 / 

5177 /THIS ROUTINE WILL NOTIFY APT OF AN ERROR AND SEND PC TO 

5178 /APT SYSTEM 

5179 / 

5180 7241 0000 WAERRO. 

5181 7242 1023 TAD 32 

5182 7243 0106 AND K4000 /SEE IF ON APT 

5183 7244 7650 SNA CLA 

5184 7345 5641 JMP I WAERRO /NO 

5185 7346 6002 lOF /DISABLE INTERUPTS 
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5186 7247 7200 CLA 

5187 7250 1775 TAD I (ERRO /GET PC 

5188 7251 3265 DCA SAVPC 

5189 7252 6214 rof /GET CURRENT DATA FIELD 

5190 7253 1774 TAD I (KCDF 

5191 7254 3256 DCA .♦2 

5192 7255 1265 TAD SAVPC 

5193 7256 7402 HLT /REPLACED WILL CURRENT DATA FIELD 

5194 7357 6J72 CIF 70 /FIELD OF UVPROH 

5195 7360 5773 JMP I (6520 /NOTIFIES APT OF ERROR 

5196 7261 7200 CLA 

5197 7262 5641 JMP I WAERRO 

5198 / 

5199 7363 5767 XMYLAS, MYLAS«3 

5200 7264 7377 K7377, 7377 

5201 7365 0000 SAVPC, 
5203 7266 5001 CLKCNT, -2777 
5203 7373 6530 

5304 7374 0150 

5205 7375 6600 

5206 7376 5001 

5207 7377 6500 

7400 PAGE 

5288 7400 2003 TEXPC, TEXT "PCl" 

7401 7200 

5309 7402 0704 TEXGD, TFXT "GDi» 

7403 7200 

5210 7404 0322 TEXCR, TFXT "CRi" 
7405 7200 

5211 7406 2324 TEXSI, TEXT "STi" 
7407 7200 

5313 7410 0403 TEXDB, TEXT "DBl" 

7411 7200 

5213 7412 0315 TEXCM, TFXT "CM|" 
7413 7200 

5214 7414 0401 lEXDA, TFXT "DAl" 
7415 7200 

5315 7416 0104 TEXAD. TEXT "AD:" 

7417 7200 

5216 7420 0424 TEXDT, TFXT "DT;" 
7421 7200 

5217 7422 0103 lEXAC, TFXT "AC:" 
7423 7200 

5218 / 

5219 7424 2324 FRTXl, TFXT "STATUS PEGISTEF ERROR" 

7425 0124 

7426 2523 

7427 4022 

7430 0507 

7431 1123 

7432 2405 

7433 224e 

7434 0^22 

7435 2217 

7436 2200 



>Lie 


VUJt 


7.MAR-77 


7437 


0317 


EPTX2, 


7<40 


1515 




7*41 


0116 




7442 


0440 




7443 


2205 




7444 


0711 




744S 


2324 




7446 


0522 




7447 


4005 




74Se 


2222 




7451 


1722 




7452 


0000 




7453 


0411 


EBTX3, 


7454 


2313 




7455 


4001 




74S6 


0404 




7457 


2205 




7460 


2323 




7461 


4032 




7462 


0507 




7463 


1123 




7464 


3405 




7465 


2240 




7466 


0523 




7467 


2217 




7470 


2300 




747t 


0401 


ERTX4, 1 


7472 


2401 




7473 


4002 




7474 


2205 




7475 


0113 




7476 


4005 




7477 


2322 




7500 


1722 




7501 


0000 




7502 


0322 


ERTX5, 1 


7503 


0340 




7504 


2305 




7505 


0711 




7506 


3334 




7507 


0532 




7510 


4005 




7511 


2333 




751J 


1722 




7513 


0000 




7514 


0401 


ERTX6> T 


7515 


2401 




7516 


4033 




7517 


0507 




7530 


1123 




7521 


2405 




7522 


2240 




7523 


0522 




7524 


2217 




7525 


2200 





SEO 0124 
"COMMJNO REr.ISTEP ERROR" 



"DISK ADDRESS REGISTER ERROR" 



"D»T« BFE»I! ERROR" 



"CBC REGISTER ERROR" 



"DATA REGISTER ERROR" 
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5225 7526 0411 ERTX7, TEXT "DISK SKIP ERROR" 
7537 3313 

7530 4033 

7531 1311 
7533 3040 

7533 0533 

7534 3317 

7535 3300 

5226 7536 0411 ERTX8, TEXT "DISK INTERRUPT ERROR" 
7537 2313 

7540 4011 

7541 1624 

7542 0532 

7543 2225 

7544 2024 

7545 4005 

7546 2222 

7547 1722 
7550 0000 

5227 7551 0103 ERTX9, TEXT "AC REGISTER ERROR" 

7552 4022 

7553 0507 

7554 1123 

7555 3405 

7556 2240 

7557 0522 

7560 2217 

7561 2300 
5328 / 

5239 7563 2313 TEXEND, TEXT "RK8E DISKLESS PASS COMPLETE" 

7563 7005 

7564 4004 

7565 1133 

7566 1314 

7567 053J 

7570 3340 

7571 2001 

7572 2321 

7573 4003 

7574 1715 

7575 3011 



5230 
5331 



7576 0524 

7577 0500 



7-MAR-77 



PAGE 11-5 



SEQ ei26 



010(1 



030(1 

0S0II 



1111IU1 

tlllllll 



IIUIIU 

lllllltl 



11111111 
lllllltl 



11111111 
11111111 



U111111 

11111111 



11111111 
11111111 



11111111 
11111111 



11111111 
11111111 



IMllllI 

niinii 



11111111 
11111111 



11111111 
111111 11 



11111111 11111111 
111111)1 11111111 



111111)1 
11111111 



11111111 
iiuiui 



11111111 
11111111 



llllUll 

11111111 



IlllllU 

11111111 



IlllllU 

11111111 



11111111 
11111111 



llUllll 

11111111 



11111111 
11111111 



11111111 

IlllllU 



IIIIUU 
IIIIIUI 



UllUll 
UUUll 



11111111 
11111111 



11U1I11 
IIIUIII 



IlllllU 
UUUll 



1111U11 
UUUll 



IlllllU 
IIIUIU 



UUUll 

iiuiui 



1000 1111UU UUUll UUUll UUUU UUUll 11111111 UUUll IIIUUI 

IIBB 111U1U UUUU UUUU IIUIIU UUUU ItlllUl UUUll UUUU 

1200 111 11111 UUUll lUlUU UUUU UUUU IlllllU UUUU 111 11111 

1300 UUUU UUUU 11111111 lUUUl UUUU UUUU IIIIUU lUUaai) 

1400 lllUlU UUUU lllUlU IIUUU UUUU lUlllU UUUU IlllllU 

1500 IlllllU UUUll UUUU UUUll UUUU 111111U UUUU 11111111 

1600 UUUU UUUU UUUU UUUU UUUll UUUU UIUIU UUUU 

1700 UUUU IIUllll UUUU UUUU IIUIUI UUUU 111U11I 11110000 



J000 UUUU UUUU UUUU IIUUU UUUU UUUU UUUU UUUU 
2100 lUllUl UUUU 11111111 IIUUU UUUU 111111U 11100000 00000000 



2200 
2300 



lllUIll 
lUllUl 



UUUll 
UUUU 



lUUUI UUUU IlllllU UUUU UUUll UUUU 
UUUU IIUUU UUUU IIIIUU 10000000 00000000 



2400 lllUtU UUUU UUUU UUUU IIUIUI UUUU IlllllU UUUU 

2500 lUUlll UUUU IIIIUU IIUUU 11111111 10000000 00000000 00000000 

2»00 lUllUl UUUU UUUU UUUU UUUll UUUll lllllUl UUUU 

2700 lUllltl UUUU UUUU UUUU lllUUl UUUU lllUllI UUUU 



3000 
3100 



3200 
3300 



3400 
3900 



3600 
3700 



UUUll 
UUUU 



lUUlll 
1U IllU 



UllUll 
lUUlU 



IlllllU 
IlllllU 



IlllllU 
IlllllU 



UUUU 

UUUU 



UUUU 
UUUU 



UUUU 
UUUll 



IlllllU 

11000000 



lUUlU 
IIUUU 



lllUlU 
IlllllU 



lUlllU 
UUUU 



11111111 
0000000e> 



UUllll 
IIUUU 



IlllllU 
lUUlll 



UUUU 
llUllll 



IlllllU 

00<?00000 



UUUU 

11111000 



UUUU 
UUUU 



UllUll 
IIUIUI 



lllUllt 

000001100 



llllUll 

00000000 



IlllllU 
llllUll 



UUUU 
UllUll 



UUUll 

00000000 



IlllllU 

00000000 



UUUU 

UUUU 



UUUll 
llUllll 



llllUll 
00000001" 



llUllll 
llllUll 



IIUUU 
UUUU 
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4200 
4300 



4400 

4500 



4600 
4700 



UIUIU 
UllUll 



lUUlll 
lUUlll 



UUUU 
lUlIlU 



IlllllU 
llllUll 



UUUU 

11100000 



IlllllU 



IIUIUI 
UIUIU 



UUUU 
IIUUU 



lUUlll 
IIIUUI 



UUUU 

UUUU 



IIUUU 
llUllll 



lllllUl lUUUl UUUU IlllllU UUUU 
00000000 00000000 00000000 00000000 00000000 



IIUUU UUllll IIIIUU lUlUU UUUU 
lUUlll UUUU UUUU UUUU UUUU 



UUUU UIUIU UUUU UUUU UIUIU 
IIUUU 11000000 00000000 00000000 00000000 



UllUll IIIUUI UIUIU 11111111 UUUll 
llUllll UUUll 11111000 00000000 00000000 



5000 
5100 



5200 
5300 



5400 
5500 



5600 
5700 



UIUIU 
UUllll 



lUlllU 
UIUIU 



IIUUU 
UUllll 



lUUlll 
lUUlll 



UUUU 
UUUU 



UUUU 
UUUU 



UUUU 
lllllUl 



UUUll 
UUUU 



IIIUUI 
IIIUUI 



UllUll 
UUUU 



UUUU 

UUUU 



UIUIU 
IIIUUI 



UllUll UUUU UUUU lUUlll IlllllU 
llUllll UUUll UIUIU llUllll 11111000 



UUllll 
lUUlll 



UUllll UUUU UIUIU 

11000000 00000000 00000000 



UllUll UUUU UUUU IlllllU 

11 II I 110 00000000 00000000 00000000 



UUUU 

00000000 



lUlUU UUUU UUUU IlllllU IIUIUI 
IIUUU UUUU UUUU IlllllU U0U111 



6200 
6300 



UUUU 
UllUll 



lltlUU 
III U1I1 



6400 lUUlll 
6500 UIUIU 



6600 UUUll 
6700 UUUU 



IIIUUI UUUU IIUUU UUllll UUUU UIUIU UUUU 

UllUll UIUIU lllllUl 1111111) 11100000 00000000 00000000 

UUUU UUUU UUUU IlllllU UIUIU UUUU UUUll 

UUUU UUUU lUlUll 10000000 00000000 00000000 00000000 

UUllll UUUU 11111111 UUUU UUUU lUlllU IIUUU 

UUUll 11111100 00000000 00000000 00000000 00000000 000000U 

UUUU IlllllU llUllll UUUU UUUU IIUUU UUUU 

UUUU lUlUU UUllll UIUIU UUUU 11111110 00000000 



7000 lUUlll 
7100 lUUIU 



UUUll 
UUUll 



UUUU 
UUUU 



UUUU UUUU 11111111 UUUU UllUll 

11111111 IMifl^B^ 0t^000000 00000000 0000^000 



73BI> 11 Mill 
7300 00. 0000 



UUUll uunn 

00000000 00000000 



UUllll UIUIU UUUU iiinii0 wmMtie 

00000000 00000000 00000900 00000000 00011111 



7400 UUllll 
7500 UllUll 



7600 
7700 



UllUll 



IlllllU 
UUUU 



IIUUU UUUU UUUU UllUll UUUU 
UIUIU UUUU UUUU UIUIU UUUU 



PAL 10 


VI4JA 


7-MAP.77 


13155 PAGE 11-7 




»»77e 


7U? 


CSTTJI 


4426 


ENHAN2 


4445 


A7Be7 


7131 


C8TYPE 


4435 


ERHLT1 


6031 


ACCMPt 


4448 


c«r 


6007 


ERHLT2 


6145 


ACCHPJ 


4441 


CCNTRl 


7133 


EPHIT3 


6115 


ACL 


77B1 


CHANG 


7101 


ERHLI4 


6104 


ACRES 


»174 


CHANGR 


7113 


FRHLT! 


6070 


ACSAVE 


1345 


CHKCL* 


1200 


ERHLI6 


6126 


ADREG 


B172 


CHNHLT 


7126 


ERHLT7 


6151 


AERRO 


4425 


CHNPOI 


7134 


ERHLT9 


6726 


APT8 


7200 


CKCOUT 


0232 


ERRl 


0736 


APTSA 


44J3 


CLASIC 


4406 


EPRMES 


1320 


AUIO10 


0010 


ClASIK 


5732 


ERPO 


6600 


BAXFLO 


7852 


CLDR 


6135 


ERROR 


4436 


BAKPNT 


6720 


CLKCNT 


7266 


ERTXl 


7424 


BGN 


0200 


CIRALL 


4453 


ERTX2 


7437 


BYRETR 


0506 


CLRTRN 


1315 


EPTX3 


7453 


CBBYl 


0230 


CMREG 


0170 


ERTX4 


7471 


CSBYa 


1300 


CNIPLC 


0551 


ERTX5 


7502 


C8BY3 


1061 


CNTRLO 


0600 


ERTX6 


7514 


eaBY4 


0515 


CNTHLE 


0545 


ERTX7 


7526 


C9BY5 


1116 


CNTRLL 


0537 


ERTXB 


7536 


C8CHAR 


1075 


CNTRLO 


0500 


ERIX9 


7551 


CBCKP 


1022 


CNTRLR 


0511 


EXIT 


6457 


CBCKPA 


4440 


CNTRLS 


0521 


EXITA 


0440 


CBCKSW 


4425 


CNIVAL 


0252 


EXTFLO 


5201 


CBCNTR 


4427 


COMPl 


6033 


flOPl 


0021 


CBCONT 


IMS 


C0MP2 


6044 


F10P2 


0022 


CBCRLF 


4433 


CONSOL 


0000 


FISHR 


0020 


CBOOl 


0310 


CBERR 


6060 


FILCNT 


1040 


CIDO10 


1262 


CRLF 


4462 


FILLER 


1037 


CBDOU 


0607 


CRRECl 


0164 


FLDMAX 


0176 


C8D02 


1033 


CRREG2 


0165 


FLSAVE 


1347 


C8D03 


0350 


DAREG 


0171 


FROCI 


6400 


e8004 


1006 


DBREG 


0167 


GDREGl 


0162 


C8D07 


0527 


DCLR 


6742 


GDRECJ 


0163 


CBECHO 


4434 


DLAG 


6743 


GETCHl 


0703 


C8ERP 


4436 


DLCA 


6744 


GETDAT 


0456 


C80ET 


0624 


DLDC 


6746 


SOITA 


B443 


eSHANS 


1122 


DHAN 


6747 


GOTOA 


0454 


ceiNQu 


4437 


OOCNI 


0247 


GIF 


6004 


C80CTA 


4432 


DONEA 


0426 


HEDLST 


6747 


C8PASS 


4424 


DOPACK 


0212 


NEDTAD 


6746 


C8PAUS 


4441 


DOSET 


0251 


HOMEMA 


B175 


C8PRKT 


4430 


DRST 


6745 


INDEXA 


0455 


C8RDPS 


0666 


DSKP 


6741 


INMOOE 


1076 


CeREIO 


0614 


DSKSKP 


4447 


INTADB 


6011 


CSRETR 


0536 


DTREG 


0173 


INTRO 


0031 


C8SETD 


0613 


DUMP 


6476 


lONWAT 


4437 


C8SETS 


0535 


ENDHLI 


5716 


lONWT 


6000 


ceswiT 


4431 


ENDIT 


0742 


lOTl 


6131 


C8SW5I 


0745 


ENDTST 


5670 


I0T2 


6136 


C9TMPI 


1021 


ENMANl 


4444 


I0I3 


6111 



I0T4 


6100 


I0T5 


6064 


I0T6 


6122 


I0T7 


6145 


lOTCHN 


5426 


K0000 


0064 


K0001 


0065 


K0002 


0066 


K0003 


0067 


K0004 


0070 


K0006 


0071 


K0007 


0072 


K0010 


0073 


K0017 


0145 


K0020 


0074 


K0037 


0075 


K0040 


0076 


K0070 


0114 


KB077 


0115 


K0100 


0077 


K0177 


Bin 


K0200 


0100 


K0207 


0101 


K0212 


0147 


K02t5 


0146 


K0240 


6461 


KB260 


0063 


K0377 


0116 


K040B 


0102 


Kt000 


0103 


K2000 


0104 


K2525 


B120 


K3737 


0122 


K3740 


6462 


K3777 


0105 


K4000 


0106 


K4100 


0124 


K5000 


0126 


K5252 


0121 


K54e3 


7054 


K5777 


0127 


K7000 


0107 


K7377 


7264 


K7600 


0125 


K7700 


0112 


K7717 


0123 


K7740 


0113 


K7771 


0131 


K7774 


0130 


K7775 


0111 


K7776 


0110 


K7777 


B132 
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KCDF 


0150 


NTCLAS 


1270 


SETUP2 


0225 


KRMF 


0151 


NTCRC 


6674 


SNERRO 


7037 


KTICK 


7220 


NTGD 


6657 


STCON 


0177 


LAS 


4404 


octel 


4460 


STPHLT 


7014 


LOAD 


6106 


OPl 


0021 


STRAUT 


6703 


LDADD 


4452 


0P2 


0022 


STREG 


0166 


LOBUF 


4427 


pascnt 


0250 


SUB 


0020 


LDCA 


6075 


PCLF 


6662 


T101D 


5256 


LDCM 


6117 


PCNTRl 


6744 


TIBIE 


5257 


LDC«D 


4450 


PCNTB2 


6745 


T10tR 


5223 


LOCUR 


4451 


PCOUNI 


5771 


T102D 


5334 


LDMAN 


4455 


PCSAVE 


1344 


T102E 


5335 


LDMN 


6144 


PNIBUF 


1120 


I102R 


5301 


M12 


BI36 


PRINT 


6463 


T103D 


5452 


M128 


0141 


PPN 


6423 


I103E 


5453 


H16 


0137 


PRNTER 


4457 


T103R 


5416 


N19t 


0142 


PRSFLD 


0210 


TI04D 


5531 


N255 


0143 


PSIE 


6665 


I104E 


5532 


M300 


0144 


PSKE 


6663 


T104R 


5475 


H4 


0133 


PSKF 


6661 


T105D 


5664 


M48 


01 4B 


PSTB 


6664 


T105E 


5665 


115 


0134 


PTSTOR 


0336 


T105R 


5610 


M7 


0135 


ROAD 


6200 


T37R 


1355 


HAINl 


6256 


POADD 


4446 


T38R 


1412 


MAIN2 


6760 


RDBF 


6226 


T39R 


1444 


MANTST 


0030 


PDBUF 


4456 


T4BB 


1501 


MANUAL 


5430 


PDC 


6240 


T45E 


1647 


KAKUL 


5723 


RDCMD 


4443 


T45R1 


1623 


MESA 


0747 


RDCR 


6263 


T45R3 


1636 


MESAC 


1333 


PDCRC 


4454 


T46A1 


1660 


MESFL 


1341 


RD5T 


6063 


T46A2 


1703 


KESHAN 


1146 


pnsTAT 


4442 


T46E 


1716 


ME5M0 


1336 


PEALPC 


1316 


T47E 


1742 


MESPAS 


0253 


RFDOA 


0415 


I48E 


1767 


HESPC 


1330 


BEGl 


0153 


T49E 


2032 


MOA 


7501 


REG2 


0154 


T50E 


2074 


HOL 


7421 


POUINS 


1302 


T51E 


2114 


MQSAVE 


1346 


POUTMP 


5762 


I53E 


2156 


HIS85 


0152 


PTFLDl 


5645 


T54F 


2225 


MYAC 


1317 


PTFl.Oi 


5234 


T55E 


225' 


MYLAS 


5764 


RTFLD3 


5312 


T57E 


2305 


NCRRO 


7000 


BTFLD4 


5430 


T58E 


2320 


NERROR 


4435 


RTFLDS 


5507 


T59E 


2333 


NEXFLl 


5655 


S»V»C 


5763 


T60E 


2354 


NEXFL2 


5247 


SJVEND 


B007 


T6ir 


2420 


NEXFL3 


5125 


SAVPC 


7265 


T62E 


2444 


NEXFL4 


5443 


SRCNTl 


0155 


I63E 


2504 


NEXFL5 


5522 


SDKP 


6130 


T64F 


2544 


NEXT 


7031 


SEBRO 


674H 


T65F 


2633 


NEXTST 


7033 


SFT 


4405 


T6flE 


2715 


NOSET 


0242 


SFIUP 


7B40 


T69E 


275f 


NOTEX 


6732 


SETUPl 


1233 


T70F. 


2774 



T71E 


3041 


T72E 


3115 


n2P 


3060 


T73E 


3266 


T73R1 


3204 


T73R2 


3210 


T73R3 


3233 


I74E 


3340 


I74R1 


3302 


T74R1A 


3303 


I74B2 


3305 


I74R3 


3322 


T75E 


3434 


T75R 


3411 


I76E 


3475 


T76R 


3452 


I77E 


3525 


T78E 


3556 


T79E 


3607 


T80E 


3641 


T81E 


3672 


T82E 


3724 


T83E 


3771 


I84E 


4033 


T85E 


4106 


T850K 


4105 


TB5P1 


4046 


T86E 


4276 


T86B1 


4204 


T86P2 


4214 


T86B3 


4236 


I86R4 


4260 


T87E 


4374 


ie7Bl 


4307 


IB7B2 


4320 


T87R3 


4340 


ie7R4 


4356 


T92E 


4641 


I92R1 


4612 


T92R2 


463U 


I94E 


4717 


I95E 


4750 


T97E 


5026 


T98E 


5ei60 


T99E 


5126 


T99R1 


5071 


T99B2 


5106 


TABLA 


0461 


TABLB 


0471 


ICNTPl 


0156 


TCNTB? 


0157 


TCNTB3 


016<« 
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TCNTR4 


0161 


ISI30 


1142 


ISI7B 


3530 


IEX»C 


742J 


TSI31 


1162 


TST79 


3561 


IEX»D 


7416 


TST32 


1203 


TSTS 


0333 


lEXCH 


741J 


TST33 


1217 


TSTSa 


3612 


lEXCR 


7404 


TST34 


1233 


TSiei 


3644 


TEXD* 


7414 


TST35 


1263 


IST82 


3675 


lEXDB 


7410 


TST36 


1311 


TSTS3 


3727 


lEXDI 


7420 


TST37 


1343 


TSI84 


3174 


TEXEND 


7562 


TST38 


1400 


TSTB5 


4^36 


TEXCD 


7402 


TST39 


1430 


TST86 


4200 


lEXPC 


7400 


TST4 


0266 


TST87 


4303 


lEXSI 


7406 


IST40 


1470 


TSTS8 


4377 


IHSFLD 


0033 


IST41 


1526 


TST89 


4426 


TICK 


4424 


TST42 


1545 


IST9 


034* 


TMPCNT 


0746 


TSI43 


1565 


TST90 


4457 


TOCT 


6314 


ISI44 


1601 


TST91 


4507 


lOFLDl 


5621 


TST45 


1615 


TST92 


4600 


T0rLD2 


5232 


TST46 


1652 


TST93 


4646 


T0FLD3 


5310 


I5T47 


1722 


TST94 


4672 


T0FL04 


5426 


TST48 


1746 


TST95 


4722 


T0FLD5 


5505 


IST49 


2000 


TSI97 


5000 


lOTST 


7036 


T5T5 


0302 


I5T9S 


5031 


TSIB 


0236 


TST50 


2035 


TST99 


5063 


TSIl 


0245 


IST51 


2077 


ISTCHA 


0715 


T8U» 


0353 


TST52 


2117 


TSILAS 


5200 


TSTie0 


5131 


IST53 


2134 


ITYLPT 


1121 


ISTlBt 


5»»S 


TSI54 


2200 


TWOCT 


4461 


TST102 


5262 


TSI55 


2230 


TYPE 


4434 


TSTiej 


5400 


TST56 


2255 


UPAROW 


0615 


TSTie4 


5456 


TST57 


2272 


UPONE 


6331 


ISTIB! 


5600 


TST58 


2310 


UPPER 


7055 


TSTll 


0375 


TST59 


2323 


UPPRl 


7064 


IST12 


0420 


IST6 


0315 


WAERRO 


7241 


TST13 


0434 


TST60 


2336 


WAIMES 


0651 


TSI14 


0452 


IST61 


2400 


XAERRO 


0025 


T»T15 


0464 


TST62 


2423 


XAPTBA 


0023 


TST16 


0517 


ISI63 


2447 


XBGN 


7130 


TSTt7 


0547 


IST64 


2507 


XCBCKP 


1041 


ISI19 


0571 


TST65 


2600 


XC8CNI 


0400 


TSI19 


0614 


ISI66 


2636 


XCBCRL 


1023 


ISIS 


0252 


TSI67 


2657 


XCBECH 


1063 


TST2e 


0626 


TST6B 


2677 


XCBERR 


1207 


T8T21 


0643 


TST69 


2720 


XCSINQ 


0635 


IST2J 


0657 


TST7 


0324 


xceocT 


1000 


TST23 


0703 


TST70 


2753 


XCBPAS 


0200 


TST24 


0730 


TST71 


2777 


XCBPAU 


0337 


TSI25 


0752 


TST72 


3044 


XCflPNT 


0303 


I5I26 


0777 


TST73 


3200 


XCBP8H 


0656 


T6I27 


1040 


TST74 


3271 


XC85H 


0262 


T5I28 


1057 


ISI75 


3400 


XCBTTY 


0272 


TST29 


1197 


TSI76 


3437 


XC8IYP 


1077 


IST3 


0260 


TST77 


3500 


XCHANG 


0026 



XCLAS 


0H06 


XCLDR 


0053 


XCOMPI 


0040 


XC0MP2 


0041 


XCRLf 


0062 


XDOLPT 


1112 


XDOSM 


0520 


XDUMP 


6741 


XEKD 


0032 


XERRO 


i)036 


XFROCT 


0060 


XIONUT 


0037 


XLAS 


0004 


XLDAD 


0052 


XLDCA 


0051 


XLDCN 


0050 


XLOMN 


0055 


XHAINI 


0044 


XMAIN2 


0045 


XMILAS 


7263 


XNERRO 


0035 


XPRINT 


0034 


XPRN 


0057 


XBDAD 


0046 


XRDBF 


0056 


XRDCM 


0043 


XRDCR 


0054 


XRDST 


0042 


XREG 


6743 


XSDKP 


0047 


XSET 


0005 


XTABLA 


0457 


XTABLB 


0460 


XTEXT 


6742 


XUCK 


0024 


XTOCT 


0061 


XUPPER 


0027 
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ERRORS DETECTEDl 
LINKS GENERATEDI 115 
RUN>TIME| 11 SECONDS 
3K CORE USED 



Ae77a 


5098 


51321 




























A7e07 


5107 


51211 


























SEO U132 


HCCMPl 


10831 


1289 


1339 


1353 


136S 


1376 


1389 


1400 


1423 


1447 


1464 


1492 


1530 


1559 




1584 


1613 


1637 


1645 


1662 


1929 


1959 


1990 


1909 


1930 


1946 


1962 


1990 


2017 






2331 


3242 


2260 


2277 


2304 


2350 


2172 


3399 


2425 


2436 


2443 


2457 


2469 


2481 






3568 


2576 


2592 


2601 


2619 


2754 


3764 


2776 


2790 


28190 


2912 


2831 


2841 


2951 






2873 


2892 


2934 


3942 


2999 


3006 


3037 


3047 


3056 


3104 


3117 


3150 


3165 


3275 






1307 


3337 


3369 


3395 


3401 


3430 


3436 


3464 


3480 


3512 


3519 


3560 


3601 


3623 






3636 


3677 


3693 


3706 


3740 


3772 


3901 


3931 


3971 


39t)6 


3934 


3963 


3997 


4027 






4063 


4108 


4173 


4236 


4380 


4334 


4396 


















ICCMPJ 


10831 


1690 


1718 


1743 


1770 


1810 


2049 


2089 


2127 


2166 


2200 










ACL 


55* 






























ACREG 


13361 


4539 


4540 


























ACSAVE 


363 


366 


569 


800 


946 


979 


10301 


















ADRCG 


1234« 


3470 


3515 


3559 


3736 


3895 


4101 


4385 


4392 


4583 


4584 










AERRO 


10711 


4887 




























APT8 


1124 


51391 


5143 


5149 


5151 


5154 




















APTSA 


10721 


1264 




























AUTOie 


11161 


4951 


4965 


4991 
























BAKFID 


5056 


50641 




























BAKPNT 


4967i 


4982 




























BCN 


453 


13491 


5119 


























BYREIR 


436 


4391 




























C9BYI 


146 


148 


1611 


173 
























C8BY? 


993 


995 


10051 


























C8BY3 


806 


809 


8151 


























CeBY4 


4S0i 


631 




























C8BY« 


868 


8731 


881 


























C9CHAR 


334 

939 


235 

8411 


378 


387 


395 


397 


399 


553 


642 


652 


662 


666 


670 


672 




C8CKP 


739 


738 


742« 


























C9CKPA 


961 


5020 




























C8CICSW 


741 


4493 




























C8CNTR 


79» 






























C8C0NT 


886 


898« 




























CeCRLF 


861 






























C8D01 


3661 


287 




























C8D0te 


969 


9901 




























C8D01t 


534 


S]8« 




























C8D02 


765t 


767 




























C8D0) 


313 


J19I 




























e8D04 


730i 


739 




























e8D07 


463 


4661 




























C8ECH0 


89i 






























C8ERR 


921 


4532 


4573 


4598 


4601 


4614 


4632 


4643 


4972 


5114 












C8GEI 


141 
962 


156 
990 


437 
996 


440 
1003 


468 
1005 


483 


492 


540 


5621 


570 


599 


811 


815 


833 




CeHANG 


871 


«79» 


885 


891 


997 






















CBINOU 


94* 


4434 


5029 


























C80CTA 


84« 






























C8PASS 


721 


4423 




























CBPAUS 


981 






























C8PRNT 


801 































C8RDPS 


6334 


678 


























C8REI0 


536 


541 


5444 
























C8RETR 


441 


465 


4731 
























C9SCID 


532 


537 


539 


5434 






















C9SEI5 


434 


439 


447 


460 


466 


4724 


















C85«:T 


821 


1266 


5095 
























ceswsT 


450 


491 


499 


639 


632 


680 


6824 
















ceiMpi 


727 


730 


734 


737 


7411 




















C8TTYI 


764 




























C8TYPE 


904 


4842 


























CAP 


561 


503 


























CCNTRl 


5102 


51234 


























CHANG 


1137 


509411 


























CHANGR 


51041 


5112 


























CHKCLA 
CHNHLT 


• 139 
1059 


312 

5115» 


364 


593 


635 


807 


9244 


929 


931 


959 










CHNPOT 


5100 


51241 


5124 
























CKCOUT 


147 


I63< 


175 


176 






















CLASIC 


10741 

5019 


1265 
5029 


4422 
5094 


4433 

5113 


449J 


4531 


4572 


4587 


4600 


4613 


4631 


4642 


4841 


4971 


CLASIK 


956 


1914 


1111 


44611 


4463 


4465 


4471 


4472 














CLDR 


1148 


46284 


4630 
























CLKCm 


5164 


5174 


52024 
























CLRALL 


10924 

1676 
1940 
2287 
2588 
3769 
3951 
3388 
3783 
4365 


1335 
1703 
1956 
2321 
2599 
2786 
2956 
3319 
3«12 
4437 


1396 
1769 
1972 
2342 
2610 
2798 
2960 
3349 
3947 
4450 


1399 
1783 
2001 
2366 
2628 
2827 
2963 
3182 
3892 


1411 
1920 
2014 
2391 
2646 
2839 
2975 
3415 
3916 


1434 

1856 
2029 
2430 
3661 
2861 
2978 
3449 
3944 


1480 
1869 
2070 
2441 
2665 
2864 
3002 
3468 
3979 


1496 

1986 
2109 
2452 

2679 
2882 

3020 
3491 
4»07 


1509 
1889 
2140 
2490 
2703 
2999 
3074 
3531 
4038 


1541 
1899 
2176 
2499 
2726 

29m 

3099 
35b6 
4092 


1573 
1902 
2211 
2510 
2731 
2907 
3133 
3607 
4143 


1597 
1904 
2232 
2529 
2739 
2921 
3195 
3661 
4195 


1543 
1919 
2254 
2558 
3750 
3924 
3219 
3723 
4249 


1660 
1926 
3271 
3586 
2762 
2937 
3257 
3753 
4302 


CLRTPN 


1015 


1019 


10204 
























CMREG 


13321 


4609 


4610 


4703 


4704 




















CNIRLC 


420 


4991 


























CNTRLD 


426 


5311 


























CNTRLE 


425 


4901 


























CNIRLL 


421 


4791 


























CNTRLO 


422 


4331 


























CNIPLP 


423 


4464 


























CNTRLS 


424 


4601 


471 
























CNTVAL 


168 


1901 


























COMPl 


1137 


4511 


4513 


45394 


4544 


4546 


















C0MP2 


1139 


4551* 


4563 


4565 






















CONSOL 


481 


57 


























CRERB 


4558 


456311 


























CRLF 


11004 


4426 


4974 


4901 


4902 


4911 


















CRREGl 


1229« 


4556 


4745 


4942 






















CRRf:G2 


12291 


4559 


4732 


4944 


4987 




















DAPEG 


12334 


1517 


1529 


1539 


1557 


155" 


459A 


4597 


467P 


4ft73 


4871 








DBREG 


12311 


1988 


1989 


2349 


2349 


4693 


4684 
















DCLP 


10621 


4629 



























SEQ 0133 



DLAS 

DLO 

DLDC 

OMAN 

DOC»T 

DONEJl 

DOPJCK 

DOSET 

DRST 

DSKP 

D8K8KP 

DTREC 



DUHP 
ENDHLT 

end:t 

ENDTST 
ENMkNl 



ENN«M2 

EPHIII 

EflHLT2 

EPHIT3 

ERHLT4 

EPHLT5 

EPHLT6 

ERHLT7 

EPHLT9 

EPRl 

ERRMES 

ERRO 

ERROR 



EPTXl 
ERTX2 
ERIX3 
ERIX4 
CRTX5 
ERTX6 
ERIX7 
ERTXe 
ERTX9 



106)1 
te64< 
1066t 
10671 
170 
377 
140 
164 
106Si 
10611 
10891 
260! 
1235t 
3932 
4686 
48541 
1057 
656 
1131 
10771 
2708 
3140 
3615 
1078« 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
665 
972 
1135 
4958 
10801 
1484 
1831 
2233 
2603 
2944 
3482 
4029 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 



4598 

4585 

4611 

4640 

172 

3841 

1471 

171 

4570 

4621 

1299 

2715 

3399 

3933 

4858 
4421 

661 
4126 
1900 
2734 
3190 
3664 
1520 
45331 
46331 
4602I 
45891 
4S74I 
46151 
4644i 
49731 

669 
10241 
4885* 
4978 
1291 
1500 
1860 
2244 
2620 
2967 
3521 
4072 
53191 
52201 
52211 
52221 
52231 
52241 
53251 
52261 
52271 



SEQ 0134 



1351 
2727 
3400 
3961 

4876 
44351 
6791 
4413« 
1930 
3757 
3226 
3848 
1549 



675« 

4888 
5187 
1301 
1533 
1892 
2262 
2638 
3008 
3570 
4110 



1800 
2732 
3434 
3962 

4977 



2039 
3793 
3258 
4083 
1979 



4900 

1311 
1561 
1911 
2379 
2653 
3058 
3644 
41S4 



1849 
2735 
3435 
3995 

4985 



2078 
2834 
3289 
4144 

2008 



490] 

1324 

1586 
1932 
2313 
2668 
3123 
3714 
4237 



1879 23J8 2495 

2740 2902 2909 

3739 3739 3770 

3996 4035 4026 



2117 
2863 
3319 
4196 
4652 



4915 

1341 
1612 
1948 
2356 
2692 
3171 
3742 
4291 



2150 
2883 
3350 
4250 
4693 



4917 

1355 
1629 
1964 
2381 
2719 
3210 
3774 
4345 



2183 
2905 
3383 
4303 
4723 



4933 

1367 
1647 
1993 
3407 
3743 
3346 
3803 
4409 



2497 


2500 


2648 


2650 


2663 


2666 


2911 


2992 


3198 


3207 


4518 




3771 


3799 


3829 


3830 


3904 


3905 


4061 


4062 


4106 


4394 


4395 


4685 



2431 2462 

2922 2954 

3416 3449 

4366 4451 
4733 



4926 

1378 
1664 
2019 
2445 
2778 
3278 
3833 



4934 

1391 
1692 
2050 
2483 
2814 
3309 
3879 



2491 

2976 
3469 
5077 



4935 

1402 
1720 
2091 
2502 
2853 
3339 
3908 



2513 
302B 

3498 



4939 

1425 
1745 
2129 
2519 
2874 
3371 
3936 



2530 2562 
3079 3095 
3538 3589 



4947 

1449 
1773 
2168 
2546 
2894 
3403 
3965 



4954 

1466 
1812 
2202 
2578 

2914 
3438 
3999 



EXIT 


4812 


4823 


4832* 
























EXIT* 


386 


3941 


























EXTFLD 


4119 


41271 


























nopi 


631 




























FI0P2 


64i 




























riSHR 


621 




























riLCNT 


763 


766 


7701 
























riLLER 


761 


7691 


























rLDMXX 


1338* 


1359 


1271 


4114 


4147 


4199 


4253 


4306 


4359 












FL8*VE 


369 


566 


802 


948 


987 


10324 


















FROCI 


1153 


478H 


4799 


4808 


4809 


4820 


4829 
















SDREGl 


12361 
3145 


1684 
3178 


1685 
4553 


1712 
4929 


1713 


1737 


1739 


1761 


1762 


1792 


1793 


2036 


2075 


2114 


GDREG2 


13271 


1285 


1320 


1333 


1349 


1362 


1416 


1417 


1420 


1440 


1441 


1444 


1460 


1477 




1492 


1519 


1546 


1577 


1579 


1591 


1603 


1604 


1607 


1623 


1638 


1656 


1682 


1687 




1710 


1715 


1735 


1740 


1759 


1764 


1790 


1795 


1821 


1840 


1871 


1905 


1922 


1933 




1943 


1944 


1959 


J960 


1974 


2003 


203) 


2034 


2072 


2073 


2111 


2112 


2142 


3177 




2217 


2318 


2238 


2239 


2256 


2257 


2273 


2300 


2307 


2323 


3326 


2)69 


2394 


3395 




2422 


3430 


2440 


2454 


2477 


2561 


257) 


2590 


2597 


2614 


2752 


2760 


2773 


2788 




2796 


3807 


2829 


2837 


2847 


2868 


2887 


2929 


2939 


2985 


3004 


3022 


3052 


3090 




3111 


3141 


3266 


3267 


3295 


3296 


3324 


3325 


3356 


3357 


3385 


3386 


3419 


3420 




3451 


3453 


3475 


3510 


3517 


3546 


3547 


3597 


3614 


3673 


3688 


3730 


3731 


3761 




3764 


3791 


3792 


3822 


3823 


3869 


3874 


3897 


3998 


3919 


3919 


3921 


3946 


3947 




3949 


3980 


3981 


3983 


4009 


4010 


4012 


4051 


4067 


4069 


4104 


4155 


4162 


4208 




4215 


4261 


4269 


4115 


432) 


4363 


4)77 


4399 


4542 


4561 


4931 








GETCHl 


6471 


655 


























GETDAT 


374 


375 


382 


4081 






















GOITA 


380 


3974 


























COTOA 


402 


403 


404 


405 


4061 




















GTF 


541 


368 


801 


947 






















HEDIST 


4990 


49911 


























HEBTAO 


4905 


49901 


























HOMEHA 


12371 


1253 


1254 


3259 


3298 


3331 


3359 


3389 


3424 


3456 


3471 


3500 


3549 


3590 




3618 


3666 


3734 


3755 


3784 


3813 


3953 


3893 


3925 


3953 


3987 


4016 


4054 


4088 




4096 




























INBEXA 


372 


381 


401 


4071 






















XNHODC 


384 


433 


448 


639 


834 


838 


8421 
















INTADD 


1130 


4517« 


























INTPS 


1130* 


5062 


























lONWAT 


1081« 
3243 


1309 


2516 


2533 


2538 


2543 


2632 


2636 


2689 


2711 


2957 


2961 


3964 


3234 


lONWT 


1136 


45081 


4516 


4517 


4520 


4532 


4523 


4530 














lOTl 


46211 


5125 


























I0T2 


46291 


5126 


























I0T3 


45981 


5127 


























I0T4 


45851 


5129 


























I0I5 


45701 


5129 


























I0T6 


46111 


sue 


























I0T7 


46401 


5131 


























lOICHN 


10751 


1251 


























K0e00 


11571 


4164 


4217 
























K0001 


1158» 


5059 


























K0002 


11591 


2042 


2082 


2121 


2154 


2187 


2613 


5061 


5081 













SES 0135 



KBtti 


lUei 


5063 


























MM* 


11611 


2429 


2476 


2560 


2806 


292l> 


2981 


5150 














Mtet 


11621 


2680 


27U 
























Keee7 


11631 


1269 


2687 


2704 


4756 


4760 


4780 
















K0ei0 


11641 


4180 


4233 


4287 


4341 


4405 


















KeBI7 


19124 


2035 


2074 


2113 


2144 


4554 


4744 


4904 

4668 














K(Se37 


1165* 
11661 


1526 
151« 


1555 

1545 


1986 


2002 


2019 


2346 


4681 


4701 


4730 


4742 


4869 




Keete 


11671 

3674 

4093 


3272 
3690 

4098 


3304 

3703 
4170 


3334 

3733 
4223 


3366 
3766 
4277 


3392 
3795 
4331 


3427 
382! 
4381 


3461 

3859 
4389 


3476 
3900 


3504 
3929 


3952 
3957 


3598 
3991 


3620 
4021 


3633 

4057 


KBBTe 


11911 


4167 


4220 


4274 


4328 


4376 


4387 
















K0e77 


iie2< 


4821 


























Keiee 

KB177 


1168« 

3145 

11844 


2463 

3160 


2472 
3193 


2772 
3203 


2845 

3229 


2866 
3239 


2885 
3665 


3031 
4452 


3042 

5082 


3093 


3090 


3098 


3112 


3134 


Kejoe 


11691 


1921 


1550 


3534 


3536 


4656 


4864 


5023 














KBja7 


11701 


4897 


























Ke3i2 


1214t 


4773 


























Ke2tS 


12131 


4771 


























K0240 


4797 


4827 


48354 
























K026e 


11561 


4757 


4761 


4789 






















Kej77 


1183t 




























Ke400 


11711 
4696 


1271 
4856 


1980 


2009 


2511 


2536 


2629 


2634 


2692 


2706 


2952 


3224 


4128 


4525 


K2e0e 


11721 

2930 

I1T3I 


2043 
2979 
1824 


2083 
3754 
3926 


2122 
3954 
3955 


2155 
4018 
3989 


2188 
4655 

4019 


243J 
4663 


2492 

4725 


2514 
47)6 


2531 


2541 


2563 


2709 


2909 


K252S 

KJ737 


11854 
3354 

11871 


1438 
3355 

1942 


1439 

3789 


1601 
3790 


1602 
3820 


1707 
3821 


1708 
4206 


1787 
4207 


1788 
4313 


2110 
4314 


2236 


2237 


3293 


3294 


K374B 


4824 


48361 


























KJ777 


11741 


2335 


























K4ea0 
K4I00 


11751 

4091 

11891 


2805 
4168 
4826 


2927 
4221 


2984 
4275 


3260 
4329 


3332 

4377 


3390 
4417 


3457 

5141 


3550 
5161 


3591 
5192 


3667 


3854 


3988 


4017 


K5000 
KS2SJ 


11911 

nasi 


3299 

2071 


3360 


3425 


3472 


3499 


3617 
















K540} 


5060 


50671 


























K5777 


11924 


1844 


























K7000 


11764 


3628 


3698 


5147 






















K7377 


9145 


52004 


























K7600 


11901 


4875 


























K7700 


11791 


4510 


4810 
























K7717 


118BI 


1958 


























K774e 


11804 


1681 


1709 


1734 


1758 


1789 


















K777J 


11941 


4952 


























K7774 


11931 


4785 


























K7775 


met 


1767 


























K7776 


11771 


2768 


3453 
























K7777 


11951 

5027 


1262 


3326 


3)58 


3421 


3433 


3495 


3769 


3829 


4087 


4271 


4325 


4415 


4970 


KCOr 


12154 


1255 


4145 


4197 


4251 


4304 


4356 


5168 


5190 













S£0 0136 



KRMr 


12161 


5057 




























KTICK 


1125 


51594 


516) 


9165 


5175 






















LAS 

LDAB 


10731 
1147 


1269 
45954 


4429 

4599 


4955 


4890 


489) 


5022 


5034 


5097 












seo 0137 


LDADD 


10881 

1741 

2662 


1398 
1765 
2684 


1516 
1796 

2890 


1549 
1823 
2994 


1580 
1827 
3539 


1582 
1842 
3682 


1606 
1875 


1608 
1924 


1625 
1929 


1640 
2198 


1642 
2331 


1659 
2611 


1689 
2631 


1716 
2647 




LDBur 
LDCn 


10874 

3765 

1146 


1908 
3793 
45821 


1893 
3824 
4586 


188) 
3899 


2219 
3920 


2240 

3948 


2259 
3982 


2375 
4011 


2293 
4044 


3327 


2370 


2396 


2996 


3732 




LDCN 


1145 


46094 


4612 


























LDCMD 
LDCUP 


10904 

1739 

2630 

3458 

3956 

10911 

3330 

3763 

4380 


1337 
1763 
2635 
3473 
3990 
1)64 
3363 
3794 


1375 
1794 
2683 
3501 
4020 
1804 
3365 
3816 


1419 
1806 
2707 
3551 
4059 
1847 
3)88 
}856 


1421 
1825 
2869 
3592 
4092 
1877 
3423 
)924 


1443 
1845 
2993 
3619 
4097 
2)33 
3460 
3953 


1445 
187J 
313! 

3668 
4169 
2848 
3497 
3996 


1458 
1907 
3225 
3725 
4223 
2908 
3537 
4015 


1462 
1976 
3261 
3756 
4376 
2990 
3593 
4056 


1475 
2005 
3300 
3785 
4)30 
3270 
3616 
4099 


1479 
2336 
3)33 
3814 
4378 
3271 
3632 
4156 


1494 
2512 
3361 
3955 
4399 
3302 
3669 
4209 


1696 
2537 
3391 
3994 

3303 

3689 
4263 


1714 
2571 
3426 
3927 

3329 
3702 
4317 




LDMAN 
LDMN 


10944 

2123 

2931 

3273 

3691 

4099 

4702 

1150 


1522 
2156 
2990 
3)05 
3704 
4171 
4711 
46394 


1527 
2199 
3032 
33)5 
3734 
4224 
4726 
4641 


1551 
2347 
3043 
3367 
3767 
4278 
4731 


1556 
2433 
3054 
3393 
3796 
43)2 
4737 


1945 
2464 
3081 
3428 
3826 
4)82 
4743 


1961 
247) 
3099 
3462 
3860 
4390 
486! 


1981 
2493 
3113 
3477 
3901 
4453 
4970 


1995 
2515 

3146 

3505 
3929 
4657 
5007 


1987 
2532 
3161 
3553 

3959 
4664 
5009 


2010 
2542 
3194 
3599 
3992 
4669 
5083 


2016 
2564 
3204 
3621 
4022 
4680 


2044 
2710 
3230 
3634 

4058 
4682 


2084 
2809 
3240 
3675 
4094 
4697 




H12 


13024 
3222 


1510 
3227 


1942 
4694 


1977 
4723 


2006 
•47)4 


3024 
4862 


3029 

507! 


3077 


3091 


3096 


3142 


3157 


3188 


3191 




M128 


12054 


3139 


3155 


368) 
























H16 


12034 


2037 


2076 


2115 


2148 


2181 




















m91 


12064 






























N255 
M300 


12074 
12081 


3026 


3071 


3093 


3186 


3220 


)583 


3609 


3699 














M4 
M48 


11994 
12044 


2290 
2460 


3301 


2)24 


334) 


3849 


3866 


404] 


4092 














M5 


12004 


4653 




























M7 


12014 


4661 




























MAINl 


1141 


47094 


4713 


























HAIN2 


1142 


50094 


9011 


























MANTSI 


1076 


11294 




























MANUAL 


10764 


1250 




























MANUL 


1129 


44491 




























MESA 


634 


6954 




























MtSAC 


978 


10264 




























HFSFL 


986 


10284 




























MFSHAN 


994 


8994 




























HESMQ 


992 


10274 




























MESPAS 


152 


1814 




























MESPC 


974 


10254 




























HOA 


584 


370 


803 


949 
























HOL 


574 


565 





























MQSiVE 


J71 


564 


804 


9sa 


983 


10311 




















MTses 


ni7i 


3564 


























SEQ 0138 


MYAC 


1010 


1016 


10221 
























MYL»S 


1109 


44911 


4495 


5199 
























NERBO 


1134 


50181 


5031 


5032 


5045 


9046 


5047 


5076 


5088 














NERBOR 


ie79i 


1290 


1300 


1310 


1323 


1340 


1354 


1366 


1377 


1390 


1401 


1424 


1448 


1465 






148} 


1499 


1531 


1560 


1595 


1611 


1628 


1646 


1663 


1691 


1719 


1744 


1772 


1811 






183e 


1859 


1891 


1910 


1931 


1947 


196 3 


1991 


2018 


2049 


209« 


2128 


2167 


2201 






232] 


2243 


2261 


2279 


2311 


235! 


2380 


2406 


2444 


2482 


2501 


2518 


2545 


2577 






2602 


2619 


2637 


2652 


2667 


2691 


2717 


2741 


2777 


2813 


2852 


2873 


2893 


2913 






2943 


2966 


3007 


3057 


3122 


3170 


3209 


3245 


3276 


3308 


3339 


3370 


3402 


3437 






34«l 


3520 


3569 


3643 


3713 


3741 


3773 


3802 


3832 


3878 


3907 


3935 


3964 


3998 






41^28 


4071 


4109 


4181 


4236 


4290 


4344 


4408 
















NEXrtl 


4371 


440H 




























NExrw 


4161 


4I76« 




























NEXFL3 


4J14 


4229« 




























NEXrL4 


4268 


42831 




























NEXrLS 


4322 


4337* 




























NEXT 


;04}l 






























NEXIST 


!«39 


50451 




























NOSEI 


167 


172» 




























NOIEX 


4956 


49771 




























NTCIAS 


961 


9961 




























NTCPC 


4938 


49471 




























NTBD 


49219 


49341 


4976 


























OCTEL 


10971 


4916 


4932 


4945 


4966 






















OPl 


11211 


4476 


4477 


























0P2 


11221 


4466 


4478 


4479 
























PASCNT 


149 


153 


1781 


























PCLF 


set 


870 


972 


























PCNTRI 


4953 


4967 


49881 


























PCNIRJ 


4949 


4959 


4960 


4961 


4979 


4980 


49891 


















PCOUNI 


4420 


44971 




























PCSAVE 


953 


1002 


1004 


1029» 
























PNTBUr 


859 


863 


869 


87511 


882 


888 




















PRINT 


1133 


48401 


4844 


4850 


4863 


4866 




















PRN 


1152 


48031 


4805 


4807 


4831 


4833 




















PRNTER 


10961 


4427 


4909 


4912 


4924 


4940 


4963 


















PBSELD 


1132 


1256 


12571 


























PSIE 


531 






























PSKE 


511 






























PSKF 


491 


883 




























PSTB 


52« 


870 




























PTSTOR 


264 


266 


277 


286 


288« 






















RDAD 


1143 


465K 


4674 


























RDADD 


10861 


1583 


1609 


1626 


1644 


1661 


1828 


1857 


1929 














RDBE 


1151 


46781 


4687 


























RDBUr 


1095* 


1802 


1854 


1984 


2220 


2241 


2259 


2276 


2303 


2371 


2397 


2986 


3035 


3084 






3102 


3149 


3164 


3197 


3233 


3274 


3306 


3336 


3368 


3394 


3429 


3463 


3478 


3511 






3518 


3559 


3600 


3622 


363! 


3676 


369! 


3705 


3870 


4172 


4225 


4279 


4333 


4860 




RDC" 


1140 


46921 


4705 


























RDCHD 


10851 


1321 


1422 


1446 


1463 


1481 


1497 


1889 


1908 


4873 












RDCB 


1U9 


472U 


4746 



























ROCBC 


10931 


1689 


1717 


1742 


1769 


1809 


2047 


2087 


2126 


2165 


2199 


4872 








RD5I 


1139 


45694 


4578 
























SEQ 0139 


RDSTAT 


10841 


1289 


1338 


1798 


1851 


1881 


2340 


2424 


2435 


2442 


2456 


2468 


2480 


2567 




2575 


2591 


2600 


2617 


2753 


2763 


2775 


2789 


2799 


2911 


2830 


2840 


2850 


2871 






2891 


2933 


2941 


2988 


2999 


3005 


3036 


3046 


3055 


3103 


3116 


4859 








REALPC 


95 7 


975 


10211 


























REDOA 


375» 


383 




























REGl 


12181 


1283 


1287 


1336 


13411 


1350 


1363 


1374 


1398 


1412 


1435 


1459 


1461 


1474 






1493 


1512 


1544 


1547 


1573 


1598 


1622 


1624 


1637 


1641 


1655 


1657 


1677 


1704 






1730 


1784 


1807 


1822 


1839 


1841 


1870 


1872 


1906 


1921 


1941 
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.V0615 


449 


492 


490 


500 


5114 














.V0624 


141 
99<5 


156 
996 


3374 

1003 


437 
1005 


440 

10424 


468 


483 


492 


5134 


911 


815 933 


,V0635 


160 


3334 


896 


9014 


994 


10364 












.V0745 


450 


491 


499 


5104 
















.V10U0 


154 


3344 


636 


697« 


976 


980 


984 


999 


10374 






.V1023 


150 


15! 


3354 


391 


5154 


555 


677 


679 


7054 


970 


989 10394 


.V11I41 


205 


3324 




















.V1063 


640 


647 


6944 


















.V1075 


234 

670 


235 

672 


3294 

7064 


379 


387 


395 


397 


399 


5194 


553 


642 652 


,V1076 


384 


433 


448 


5184 


639 


6954 












,V1077 


276 


295 


3271 


389 


390 


5174 


55? 


554 


639 


676 


7074 


.V1I21 


446 


479 


481 


498 


5124 














.V1200 


139 


312 


3384 


364 


5224 


593 


62! 


7014 


907 


9064 




.V1392 


4481 


4494 


44994 


















.V1345 


363 


366 


5234 


!69 


702* 


801" 


9094 










,V1346 


371 


5204 


564 


7044 


804 


9074 













SES 0147 



4467 45034 
9044 962 



.Vn47 


369 


521» 


566 


,V3740 


281 


3351 




.vse0t 


5173 


53061 




.VJ733 


956 


1014 


10431 


,V6]14 


478S 


4795 


48791 


.V6)31 


4784 


4787 


4791 


,V6S8e 


5172 


53071 




,V6S]8 


5195 


53031 




.V6«e8 


5187 


53051 




,V74e2 


317 


322i 


1001 


■V751« 


667 


690* 




,V7S2e 


663 


6911 




,V76ei9 


503 


508* 




,v77ee 


367 


3381 




.V7774 


728 


9U« 





SEQ 0148 



48801 



10351 



